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1 EPISTE SRC IFP15T2' TEST MODUEE FOR SYSTEM EXERCISER 


.TITLE IFP3,5T2' TEST MODULE FOR SYSTEM EXERCISER 
.EBREL 

/version# a 

/COPYRIGHT SEPT, 22, 1971 

/DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS, 01751 
/PROGRAMMER! EARL L, BOUSE 
/ 


/ 

/this PROGRAM IS DESIGNED AS A RANDOM FP15 INSTRUCTION EXERCISER 
/FOR THE FP15 FLOATING POINT PROCESSOR, 

/ 

/ 


00000 

R 

000000 

A 

ys^Rsw 

0 

00001 

R 

000000 

A 


0 

00002 

R 

000000 

A 


0 

00003 

R 

000000 

A 


0 

00004 

R 

000062 

R 


,DSA SERVICE 

00005 

R 

000032 

R 


,DSA JN|T "■ 

00006 

R 

062061 

A 


,SIXBT ’FP1PT2» 

00007 

R 

652462 

A 



00010 

R 

000200 

A 


200 

00011 

R 


A 


.BEPCK 7 

00020 

R 

000000 

A 

SYSERR 

0 

00021 

R 

000000 

A 


0 

00022 

R 

000000 

A 

erqqde 

0 

00023 

R 

000000 

A 


0 

00024 

R 

000000 

A 


0 

00025 

R 

000000 

A 


0 

00026 

R 

000000 

A 


0 

00027 

R 

000000 

A 


0 

00030 

R 

000000 

A 


0 

00031 

R 

000000 

A 


0 


.EJECT 


/LOAD AS A 'CP' module, 


/DATA SWITCH 10 INHIBITS TEST 
/ERROR INDICATOR FOR MONITOR, 


I 



FPliTZ SRC 'FP15T2' TEST MODUL.E FOR SYSTEH EXERCISER 




/TO STORE ADDRESSES INTO EXECUTIVE AT UOAD TIME 
/definitions FDR EXERCISER 

0000X0 

A 

URSX0 

/unrounded 

0000^0 

A 

UN«20 

/UNN0RMAEI2ED 

0000^0 

A 

UU??30 

/UNN0RMAUI2ED/UNR0UNDED 

000040 

A 

FL = 40 

/FLOATING 

000100 

A 

DP5X00 

/double precision 

000^^00 

A 

JM = 200 

/immediate 

000400 

A 


/subtract 

00X000 

A 

RSUB5X000 

/REVERSE subtract 

003000 

A 

tD=;3000 

/basic fp load 

003600 

A 

ST?IM|3400 

/STORE immediate 

7X2000 

A 

DVr7X2000 

/BASIC divide 

7X5400 

A 

L,JE = 715400 

/LOAD JUMP EXIT register 

715600 

A 

SJE57X5600 

/STORE JUMP EXIT REGISTER 

001400 

A 

MUU51400 

/BASIC multiply 

002000 

A 

DI V52000 

/BASIC DIVIDE 

002400 

A 

RPIV?2400 

/BASIC REVERSE DIVIDE 

006000 

A 

ADPB6000 

/BASIC add 

007400 

A 

OP6TO9=7400 

/OPCODE 6 TO 9 MASK 

7X0000 

A 

DRRS7X0000 

/diagnostic read registers 

7X0X00 

A 

OSR=7X0100 

/diagnostic step and read registers 

71321?0 

A 

FNM=7X3250 

/NORMALISE FMA (ASIGN) EPA 

7X6601 

A 

BHA = '/16601 

/BRANCH IF FMA HERO 

7X6602 

A 

8HA=7X6602 

/BRANCH IF FMA NEGATIVE 

716603 

A 

BLE57X6603 

/BRANCH IF FMA < OR = 0 

7X6604 

A 

BPA?7X6604 

/branch if fma positive 

7X6606 

A 

BRU=7X6606 

/BRANCH unconditional 

716610 

A 

BNAP716610 

/branch if fma NONaHERO 

716620 

A 

BAC=7X6620 

/BRANCH IF GUARD BIT IS SET 

006400 

A 

BRs6400 

/BASIC branch 

7X7300 

A 

OMN57X7300 

/DIAGNOSTIC maintenance MODE ON 

7X7200 

A 

DMF57X7200 

/DIAGNOSTIC maintenance MODE OFF 

7X0314 

A 

FPT=710314 

.EJECT 

/FLOATING POINT TEST 



»FP15T2i test module pOR SYSTEM EXERCISER 


PAGE 3 FPX^?T2 SRC 


/INITIALISE THE »FPlPT2i TEST, 
/ 


00032 

R 

000000 

A 

!NIT 

0 



00033 

R 

707/64 

A 

EBA 



00034 

R 

200032 

R 


LAC 

IN|T 


00035 

R 

040062 

R 


DAC 

SERVICE 


00036 

R 

140020 

R 


DSM 

syserh 

/ClEAR THE ERROR EOCATtONS, 

00037 

R 

140021 

R 


OSM 

SYSERH*! 


00040 

R 

140022 

R 


DHM 

ERCOOE 


00041 

R 

777000 

A 


LAW 

«1000" 


00042 

R 

040545 

R 


DAC 

K1000 


00043 

R 

776000 

A 


LAW 

S2000 


00044 

R 

040546 

R 


DAC 

KT200U 


00045 

R 

777400 

A 


LAW 

ff400 


00046 

R 

044561 

R 


DAC 

RATIO 


00047 

R 

100656 

R 


JMS 

FPRAN 

/initialize op»code buffer, 

00050 

R 

104235 

R 


JMS 

hqldsw 

/CHECK FOR THE HOLO SWITCH, 

00051 

R 

710314 

A 


PPT 

/test For the fpis 

00052 

R 

604266 

R 


JMP 

EKRpRl 

/FP15 Is NOT OUT THERE, 

00053 

R 

2045/2 

R 


LAC 

IFPEXER 


00054 

R 

040073 

R 


DAC 

DSTSW0 

/SET UP DISTRIBUTION SWITCH, 

00055 

R 

777730 

A 


LAW 

s50 


00056 

R 

044545 

R 


DAC 

PASCNT 


00057 

R 

204573 

R 


LAC 

(720000 


00060 

R 

044543 

R 


DAC 

PCMLOr 


00061 

R 

604256 

R 


JMP 

/ 

/ 

/ 

EXITM5 

/START THE TEST, 


/ 

/ 

/ 






/SERVICE 

ENTRANCE FOR THE 

y 

fP15T2, 


00062 

R 

000000 

A 

SERVICE 

0 




0006 3 

R 

707764 

A 


EBA 




00064 

R 

750004 

A 


LAS 




00065 

R 

500010 

R 


AND 

USERSW+10 



00066 

R 

740200 

A 


S2A 


/IS Th 

IE HOLD SWITCH SET? 

00067 

R 

604256 

R 


JMP 

EX| TMS 

/YES, 

EXIT 

00070 

R 

715400 

A 


uc 


/LOAD 

THE IJEA' REGISTER 

00071 

R 

004574 

R 


(XJEA) 




00072 

R 

620073 

R 


JMP« 

PSTSW0 



00073 

R 

000000 

A 

OSTSW0 

0 


/PROGRAH DISTRIBUTION LO 


/ 


• EJECT 
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FP15TJS 

! SRC 

»FP15T2» 

test modute for system exerciser 





/FPU E/ERCJSER RANDOM 

hardware op^code executioner 

00074 

R 

140540 

R 

fpexer 

07M 

OVRFLR 


00075 

R 

140536 

R 


D5?M 

OVRFEl 


00076 

R 

140541 

R 



undfln 


00077 

R 

140537 

R 


D2M 

UNDFU 


00100 

R 

140542 

R 


D?M 

DVBY00 


00101 

R 

140543 

R 


D2M 

OVRFEX 


00102 

R 

140544 

R 


D7M 

IDVBY0 


00103 

R 

224547 

R 


|„AC« AUTORG 

/random operation 

00104 

R 

044552 

R 


DAC 

ADRESS/^ 


00105 

R 

444547 

R 


ISZ 

AUTORG 


00106 

R 

224552 

R 


LAC^ 

^ ADRESS 


00107 

R 

040527 

R 


DAC 

OPCODE 


00110 

R 

100567 

R 


JMS 

RANOAT 

/generate random numbers, 

00111 

R 

101556 

R 


JMS 

IFRESt 

/INTEGER FTOATING RESTRICTIONS FOR RANOEX 

00112 

R 

200527 

R 


EAC 

OPCODE 


00113 

R 

504575 

R 


AND 

(0P6T09) 


00114 

R 

544576 

R 


SAD 

(ADD? 


00115 

R 

601033 

R 


JMP 

FPPADO 

/SOFTWARE Mt. ADDITION 

00116 

R 

544577 

R 


SAD 

(SUB? 


00117 

R 

601040 

R 


JMP 

FPPSUB 

/, , , (SUBTRACTION 

00120 

R 

544600 

R 


SAD 

(MUL? 


00121 

R 

601045 

R 


JMP 

FPPMUE 

/, 1 , (MUTTIPLICATION 

00122 

R 

544601 

R 


SAD 

(DIV? ’ 


00123 

R 

601052 

R 


JMP 

FPPPJV 

/, , , (DIVISION 

00124 

R 

544602 

R 


SAD 

(RSUB? 


00125 

R 

601057 

R 


JMP 

FPPRSfi 

/,(, (REVERSE SUBTRACTION 

00126 

R 

601064 

R 


JMP 

FPPRDV 

/,,, (REVERSE DIVISION 





/software computations 

compi1ete»*®p®****»*»*»*** 










/INITIAUIZE 

FPU HARDWARE OPERATIONAT BOOKEEplNG 

00127 

R 

200527 

R 

FPUXAl 

EAC 

OPCODE 


00130 

R 

504603 

R 


AND 

(FE? 


00131 

R 

544604 

R 


SAD 

(CAE? 


00132 

R 

600142 

R 


JMP 

FPUXA2 

/INTEGER OPERATINOS 

00133 

R 

204605 

R 


EAC 

(XoANSRl? 


00134 

R 

040352 

R 


DAC 

FPANSK 


00135 

R 

204606 

R 


EAC 

(%XFAC1? 


00136 

R 

040225 

R 


DAC 

FPFMA" 

/3 OR 2 WORD XFER FTOATING FMA 

00137 

R 

2PJ4607 

R 


EAC 

( 79 XHACI? 


00140 

R 

040350 

R 


DAC 

FPFMB"' 

/and FLOATING FMB 

00141 

R 

600163 

R 


JMP 

FPUXA3 


00142 

R 

200527 

R 

FPUXA3 

EAC 

OPCODE 


00143 

R 

504610 

R 


AND 

(DP? 


00144 

R 

544604 

R 


SAD 

(CAU? 


00145 

R 

600155 

R 


JMP 

FPUX2A 


00146 

R 

204611 

R 


EAC 

(7«ANSR2? 


00147 

R 

040352 

R 


DAC 

FPANSR 


00150 

R 

204612 

R 


LAC 

(%XFAC2? 


00151 

R 

040225 

R 


DAC 

FPPMA 

n OR 1 WORD XFER integer FMA 

00152 

R 

204613 

R 


LAC 

(%XHAC2? 


00153 

R 

040350 

R 


DAC 

fpfmb' 

/and integer FMb 

00154 

R 

600163 

R 


JMP 

FPyXA3 
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IFP15T2' TEST MOpyt.E FOR SYSTEM EXERCISER 


FPISTS SRC 


00Xi::>S 

R 

204614 

R 

FPUX2A 

uo 

(%ANSK3) 


001^?6 

R 

040352 

R 


DAC 

FPANSR 


00157 

R 

204615 

R 


WAC 

(%XFAC3) 


00160 


040225 

R 


DAC 

FPFMA" 


00161 

R 

204616 

R 


LAC 

(%XHAC3) 


00162 

R 

040350 

R 


DAC 

fpfmb' 


00163 

R 

200527 

R 

FPUXA3 

LAC 

OPCODE 


00164 

n 

504617 

R 


AND 

(770367) 


00165 

R 

344620 

R 


TAD 

(UR) 


00166 

R 

344621 

R 


TAD 

(LD) 

/3000 

00167 

R 

040224 

R 


DAC 

fpulp 


00170 

R 

200527 

R 


LAC 

OPCODE 


00171 

R 

504622 

R 


AND 

(770177) 


00172 

R 

344623 

R 


TAD 

(St) 

/3600 

00173 

R 

040351 

R 


DAC 

FPUST 

/ALWAYS immediate 

00174 

R 

504624 

R 


AMD 

( «UU"1 ) 


00175 

R 

344625 

R 


TAD 

(URJUN) 


00176 

R 

0402/0 

R 


DAC 

CFPUST 

/ALWAYS URIUN 

00177 

R 

101556 

R 


JMS 

ifrebt 


00200 

R 

101573 

R 


UMS 

DPFRES 






/SOFTWARE OPERATIONS 
/ 

/VIA HARDWARE COMPUTE 
/ 

completed and addresses reserved 





THE PPU FUNCTION IN "OPCODE" 





/INITIAU2E 

HARDWARE 

10 software execution ratio 400 TO 1 

00201 

R 

204561 

R 


LAC 

RATIO# 


00202 

R 

740100 

A 


SMA 



00203 

R 

777400 

A 


LAW 

*400 


00204 

R 

044561 

R 


DAC 

RATIO 


00205 

R 

104235 

R 

FPiogp 

JMS 

HOLDSW 

/CHECK FOR THE HOLD SWITCH, 

00206 

R 

444545 

R 


IS2 

PASCNT 


00207 

R 

600216 

R 


JMP 

t*7 


00210 

R 

104252 

R 


JMS 

PCNEXT 

/EXIT 'b5I, 

00211 

R 

777730 

A 


LAW 

*50 ~ 

00212 

R 

044545 

R 


DAC 

PASCNT 


00213 

R 

444543 

R 


ISZ 

PGMLOP 


00214 

R 

741000 

A 


SKP 


00215 

R 

604261 

R 


JMP 

EXITM4 

/TYPE 'DONE' 

00216 

R 

141432 

R 


D2M 

XJEA 


00217 

R 

141434 

R 


DHM 

X jE A+2 


00220 

R 

141436 

R 


DHM 

XJEA+4 


00221 

R 

141440 

R 


DS?M 

XJEA’^a 


00222 

R 

200224 

R 


LAC 

FPULO 


00223 

R 

044555 

R 


DAC 

ffail# 


00224 

R 

000000 

A 

PPUED 

CAL 


/modified TO CONTAIN HARDWARE LOAD UR+OPcODE. 

00225 

R 

000000 

A 

FPFMA 

CAL 


/MODIEIED to CONTAIN ADDRESS %XFAC1 OR %XFAC2 






.EJECT 




o o 
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PP15T^ 

} SRC 

'FP15T2 

! TEST MOOyi,E 

FOR SYSTEM exerciser 



o 





/IF DPI OR 1 

JPF AND MANTISS ~ 400000 000000 


o 






/hardware WILU STORE AS 

000000 000000 




00226 

R 

200527 

R 

lAC 

OPCODE 




o 

00227 

R 

504610 

R 

ANO 

(OP) 



o 


00230 

R 

544610 

R 

SAD 

(OP) 





00231 

R 

741000 

A 

SKP 





o 

00232 

R 

600247 

R 

JMP 

CFPU 

/single precision 


o 


00233 

R 

200515 

R 

UC 

%XFAC3 





00234 

R 

740200 

A 

SiJA 





o 

00235 

R 

600247 

R 

JMP 

CFPU 

/FMa low not = 000000 


o 


00236 

R 

200^514 

R 

lAC 

%XFAC2 





00237 

R 

544626 

R 

sad 

(400000) 




o 

00240 

R 

140514 

R 

D?.M 

%XFAC2 

/FMA high = 400000 and FMA LOW =i 

000000 

o 


00241 

R 

200520 

R 

lac 

%XHAC3 





00242 

R 

740200 

A 

SiA 





o 

00243 

R 

600247 

R 

0MP 

CFPU 



o 


00244 

R 

200^17 

R 

LAC 

%XHAC2 





00245 

R 

544626 

R 

SAD 

(400000) 




o 

00246 

R 

140517 

R 

D2M 

?$XHAC2 



o 






/IF FLOATING AND MANTISSAS = 0 CLEAR EXPONENT %XPAC1 FOR 

COMPARISON 







/IN CTFSTl i 

^UDPY BROTHER 




o 

00247 

R 

200^27 

R 

QFPU LAC 

OPCODE 



o 


00250 

R 

504627 

R 

AND 

(OP|FL) 





00251 

R 

544603 

R 

SAD 

(FL) 




o 

00252 

R 

741000 

A 

SKP 


/SPF 


o 


00253 

R 

600263 

R 

JMP 

,+10 

/OPF 




00254 

R 

200513 

R 

LAC 

%XFAC1 




o 

00255 

R 

504630 

R 

AND 

(777000) 



o 


00256 

R 

540514 

R 

SAD 

%XFAC2 





00257 

R 

740200 

A 

S2A 





o 

00260 

R 

600262 

R 

JMP 

,+2 



o 


00261 

R 

140513 

R 

DHM 

^X[AC1 

/MANTISSA ; 0 




00262 

R 

600270 

R 

JMP 

, +6 




o 

00263 

R 

200514 

R 

LAC 

%XFAC2 



o 


00264 

R 

540515 

R 

SAD 

%XFAC3 





00265 

R 

740200 

A 

S2A 





O' 

00266 

R 

741000 

A 

SKP 




o 


00267 

R 

140513 

R 

Oi?M 

%XFAC1 









,eje:ct 




o 









o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



o 


o 


o 
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FP15T2 SRC 

»FP15T2» TEST MODUl^E pOR SYSTEH PXERC|SPR 

o 





/qONFIRH L.OAD/STORE, , ! 

UR, , (FUNCTIONS PROPERLY 


00270 

R 

000000 

A 

CFPUST 

CAU 

/STORE URIUN 


00271 

R 

400352 

R 


FPANSR*400000 

/INDIRECT FPANSR 

o 





/NO JEA 

f 

EXCEPTIONS SHOUl,D HAVE OCCURRED 






/MIGHT 

LOOK like REDUNDANT checking BUT IT ISN'T 

o 





/SOFTWARE MIGHT EXPECT 
/ 

A JEa function but that function should NOT OCCUR HERE 






/EXCEPT 

IF single PRICISION INTEGER AND FMA = 400000 THEN EXPECT OVERFLOW #30 

o 

00272 

R 

777777 

A 


EAW rl 



00273 

R 

044554 

R 


DAC COMPEP^ 



00274 

R 


R 


EAC OPCODE 


o 

00275 

R 

504627 

R 


and (DP|FE) 



00276 

R 

544604 

R 


SAD (CAU 



00277 

R 

741000 

A 


SKP 


o 

00300 

R 

600204 

R 


JMP CTEST0 



00301 

R 

200515 

R 


EAC %XFAC3 



00302 

R 

544626 

R 


SAD (400000) 


o 

00303 

R 

600353 

R 


JMP TPRT ' 

/EXPECT OVERFLOW #30 


00304 

R 

201432 

R 

CTEST0 

EAC XJEA 



00305 

R 

740200 

A 


SZA 


o 

00306 

R 

601502 

R 


JMP XFEOW 

/unexpected OVERFLOW 


00307 

R 

201434 

R 


EAC Xjp*2 



00310 

R 

740200 

A 


SZA 


o 

00311 

R 

601502 

R 


JMP XFEOW 

/UNEXPECTED UNDERFLOW 


00312 

R 

201436 

R 


EAC XJEA*4 



00313 

R 

740200 

A 


SZA 


o 

00314 

R 

601502 

R 


JMP XFEOW 

/unexpected abnormal division 


00315 

R 

201440 

R 


LAC XJEA'*^5 



00316 

R 

740200 

A 


SZA 


o 

00317 

R 

601502 

R 


JMP XFEOW 

/unexpected illegal mem reference 


00320 

R 

200534 

R 


EAC %NA1 



00321 

R 

544631 

R 


SAD (*1) 


o 

00322 

R 

741000 

A 


SKP 



00323 

R 

604370 

R 


JMP ERR0R5 



00324 

R 

200535 

R 


EAC %NA2 


o 

00325 

R 

544631 

R 


SAD («1) 



00326 

R 

741000 

A 


SKP 



00327 

R 

604370 

R 


JMP ERRQR5 


o 

00330 

R 

200513 

R 

QTESTl 

EAC %XFACi 



00331 

R 

540531 

R 


sad %ANSR1 



00332 

R 

741000 

A 


SKP 


o 

00333 

R 

604370 

R 


JMP ERROR5 

/exponent failure LOAD/STORE 


00334 

R 

200515 

R 

CTEST3 

EAC %XFAC3 



00335 

R 

540533 

R 


SAD %ANSR3 


o 

00336 

R 

741000 

A 


SKP 



00337 

R 

604370 

R 


JMP ERROR5 

/FMA failure LOAD/STORE 


00340 

R 

200514 

R 

CTEST2 

EAC ?«XFaC2 


o 

00341 

R 

540532 

R 


SAD %ANSR2 



00342 

R 

741000 

A 


SKP 



00343 

R 

604370 

R 


JMP ERRQR5 

/FMA failure LOAD/STORE 

0 

00344 

R 

144554 

R 


OZM COMPED 








, EJECT 



o 


o 

o 

o 

c 

o 

o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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PAGE 8 FP1ST2 SRq 


00345 

R 

200527 

R 


UAC opcode 


00346 

R 

0 4034 7 

R 


dac 


00347 

R 

740040 

A 


XX 


00350 

R 

000000 

A 

FPFMB 

CAE. 

/modified to contain ADDRESS TSXHACi OR XXHACS 





/AU, OPERATIONS COMPLETED AND SAVED IN 2'S COMP COMPARE RESULTS 

00353, 

R 

000000 

A 

FPUST 

CAL 

/MODIFIED TO CONTAIN HARDWARE STORE* ETC , 

00352 

R 

000000 

A 

FPANSR 

cal 

/MODIFIED TO contain ADDRESS XANSRl OR %ANSR2 





/hardware operations 

complete-check FOR UNOCCURED BUT EXPECTED JEA EXCEPTIONS 

00353 

R 

201^^^^ 

R 

TPRT 

LAC XDEA 

00354 

R 

740200 

A 


S2A 


00355 

R 

600367 

R 


JMP TPRTl 


00356 

R 

200540 

R 


LAC OVRFLR 


00357 

R 

7^0200 

A 


SHA 


00360 

R 

601540 

R 


JMP EINTU 

/OVERFLOW expected, , , 

00361 

R 

200536 

R 


i,AC OVRFLi 

00362 

R 

740200 

A 


S2A 


00363 

R 

601542 

R 


JMP EINT12 

/,,,8UT NONE OCCURED 

00364 

R 

200543 

R 


LAC OVRFLX 

00365 

R 

740200 

A 


S2A 


00366 

R 

601544 

R 


JMP EINT30 

/m.ETC 

0036 7 

R 

201434 

R 

TPRTl 

LAC XviEA + 2 

00370 

R 

740200 

A 


SHA 


00371 

R 

600400 

R 


JMP TPRT2 


00372 

R 

200541 

R 


LAC UNPFLN 


00373 

R 

740200 

A 


S2A 


00374 

R 

601546 

R 


JMP EINT13 

/underflow expected,,, 

00375 

R 

20053/ 

R 


LAC UNPFLi 


00376 

R 

740200 

A 


S2A 


00377 

R 

601550 

R 


JMP EINT14 

/,,,BUT NONE OCCURED 

00400 

R 

201436 

R 

TPRT2 

LAC xjEA+4 

00401 

R 

740200 

A 


S2A 


00402 

R 

600411 

R 


JMP TESTl 


00403 

R 

200542 

R 


LAC DVBY00 


00404 

R 

740200 

A 


S2A 


00405 

R 

601552 

R 


JMP EINT15 

/,,, abnormal DIVISION expected BUT NONE OCCURED 

00406 

R 

200544 

R 


LAC IDVBY0 


00407 

R 

740200 

A 


S^A 


00410 

R 

601554 

R 


JMP EINT35 

/,,, INTEGER DIVISION BY 2ER0 EXPECTED BUT NONE OCCURED 


■ EJECT 
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FP15T;; 

: SRC 

*FPX5T2» 

TEST MODULE 

: for systeh exerciser 

004X1 

R 

200536 

R 

TEST! 

l-AC 

OVRFLX 


00412 

R 

340540 

R 


TAD 

OVRFLR 


004X3 

R 

34054X 

R 


TAD 

UNDFLN 


004X4 

R 

340537 

R 


TAD 

UNDFLX 


004X5 

R 

340543 

R 


TAD 

OVRFLX 


004X6 

R 

340542 

R 


TAD 

DVBY00 


004X7 

R 

340544 

R 


TAD 

IDVBY0 


00420 

R 

740200 

A 


SHA 



0042X 

R 

600443 

R 


JMP 

FPALLOK+2 

/expected interrupt exception OCCURED 

00422 

R 

203704 

R 


lAC 

%FACX 

/SOFTWARE RESULT 

00423 

R 

540531 

R 


SAD 

%ANSR1 

/hardware RESULT 

00424 

R 

741000 

A 


SKP 



00425 

R 

100436 

R 


DMS 

FPERROR 

/EPA result wrong 

00426 

R 

203706 

R 

TESTJ 

lAC 

%FAC3 

/SOFTWARE RESULT 

00427 

R 

540533 

R 


SAD 

%ANSRf 

/hardware result 

00430 

R 

74X000 

A 


SKP 



00431 

R 

X00436 

R 


JMS 

FPERROR 

/FMa (LOW ORDER) RESULT WRONG 

00432 

R 

203705 

R 

TEST2 

LAC 

%FAC2 

/SOFTWARE RESULT 

00433 

R 

540532 

R 


sad 

%ANSR2 

/HARDWARE RESULT 

00434 

R 

60044X 

R 


JMP 

FPALLOK 


00435 

R 

100436 

R 


JMS 

FPERROR 

/FHa (HIGH ORDER) RESULT WRONG 

00436 

R 

000000 

A 

FPERROR 

CAL 


/JMS IS FOR diagnostic A1D» Bqy, 

00437 

R 

104332 

R 


JMS 

ERROR2 


00440 

R 

600444 

R 


JMP 

FPABORT 


0044X 

R 

444561 

R 

FPALLOK 


RATIO 

/normal RETURN, , .UNTIL RATIQP0 

00442 

R 

600205 

R 


JMP 

FPLOOP 


00443 

R 

10X635 

R 


JMS 

TFBRA 






/RATIO 

OPERATIONS COMPLETE 

0044 4 

R 

X04235 

R 

FPABORT 

JMS 

HOLOSW 

/CHECK FOR HOLD SWITCH, 

00445 

R 

204547 

R 


LAC 

AUTORG 


00446 

R 

544632 

R 


sad 

(AEOPCPS 

/end of op^code buffer? 

f:30447 

R 

74X000 

A 


SKP 


/YES, RESET TABLE 

00450 

R 

6000M 

R 


JMP 

FPEXER 



■EJECT 


IGNORE RESULT 
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FP15Ti 

i SRC 

’FP15T2’ 

TEST MOQUEE TOR SYSTEM EXERCISER 

00^51 

R 

440546 

R 

ISZ 


00452 

R 

600455 

R 

JHP 

1 ^ 3 

00453 

R 

101776 

R 

JMS 

INITAUR 

00454 

R 

600505 

R 

JMP 

FLxrr 

00455 

R 

440545 

R 

ISZ 

KX000 

00456 

R 

600505 

R 

JHP 

FLXI t 

00457 

R 

777000 

A 

UAW 

*51000 

00460 

R 

040545 


DAC 

K1000 

00461 

R 

204633 

R 

lAC 

( AOPCDBF) 

00462 

R 

044547 

R 

DAC 

AUTORG 

00463 

R 

777716 

A 

DAW 

r.62 

00464 

R 

044551 

R 

DAC 

TLMP2 

00465 

R 

104515 

R 

LOOPl JMS 

RANGFN 

00466 

R 

504634 

R 

AND 

(37777) /32k 

004 67 

R 

040530 

R 

DAC 

TEMP 

00470 

R 

344635 

R 

TAD 

("EOPCOBbI) 

00471 

R 

740100 

A 

SMA 


00472 

R 

600^65 

R 

JHP 

LDOF^I 

00473 

R 

204636 

R 

LAC 

(»PPCDBF«»1) 

00474 

R 

340530 

R 

TAD 

TEMP 

00475 

R 

741100 

A 

SPA 


00476 

R 

600465 

R 

JMP 

LOOPl 

00477 

R 

200530 

R 

LAC 

TEMP 

00500 

R 

064547 

R 

OAC« 

■ AUTORG 

00501 

R 

444547 

R 

ISZ 

AUTORG 

00502 

R 

740000 

A 

NOP 


00503 

R 

444551 

R 

ISZ 

TEMP2 

00504 

R 

600465 

R 

JMP 

LOOPl 

00505 

R 

204633 

R 

FEXIT LAC 

(AOPGDBF) 

00506 

R 

044547 

R 

DAC 

AUTORG 

00507 

R 

600074 

R 

JMP 

r- 1 r* 

FPEXER 

r* 'T ^ 





o 


o 


o 









O 
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FP15T^ 

? SRC 

'FP15T2' 


MODULE FOR SYSTEM EXERCISER 


o 

0053,0 

R 

000000 

A 

PACLOC 

0 



O 


005U 

R 

000000 

A 

ESGLOC 

0 





005X2 

R 

000000 

A 

EXPUOC 

0 



O 

o 

005X3 

R 

000000 

A 

%XPAC1 

0 


/temporary 


005X4 

R 

000000 

A 

%XFA02 

0 


/SOFTWARE 


o 

00515 

R 

000000 

A 

%XFAC3 

0 


/FMA 

O 

00516 

R 

000000 

A 

%XHAQ1 

0 


/temporary 


005X7 

R 

000000 

A 

%XHAC2 

0 


/SOFTWARE 



00520 

R 

000000 

A 

%XHAC3 

0 


/fhb 

O 

o 

00521 

R 

000000 

A 

ACILOC 

0 


/XXFACl, %XHAC1 


00522 

R 

000000 

A 

AC210C 

0 


/%XFAC2, ?SXHAC2 


0 

00523 

R 

000000 

A 

AC3L0C 

0 


/•XXFAC3, XXHACS 

o 

00524 

R 

000000 

A 

PI VSW 

0 




00525 

R 

000000 

A 

RSW 

0 




o 

005'^6 

R 

000000 

A 

FPACTV 

0 



o 

00527 

R 

000000 

A 

OPCODE 

0 




00530 

R 

000530 

R 

TEHP 

,OSA 

TEMP 

/temporary storage 


o 





/RESULTANT hardware CALCULATIONS 

o 

00531 

R 

000000 

A 

%ANSRX 

0 


/exponent Word i opf and spf 


00532 

R 

000000 

A 

%ANSR2 

0 


/WORD 2 DPF and SPF WORD 1 DPI 


o 

00533 

R 

000000 

A 

%ANSR3 

0 


/WORD 3 DPF WORD 2 DPI WORD 1 SPI 

o 

00534 

R 

777777 

A 

%NAX 

LAW 

wX 

/error IFi WORD 3 when DPI QR WORD 2 WHEN SPI 


00535 

R 

777777 

A 

%NA2 

LAW 

rri 

/ERROR IF! WORD 3 WHEN SPI 


o 

00536 

R 

000000 

A 

OVRFEi 

0 


/exponent OVERFLOW 

O 

00537 

R 

000000 

A 

UNPFU 

0 


/EXPONENO UNDERFLOW 


00540 

R 

000000 

A 

OVRFER 

0 


/OVERFLOW VIA ROUNDING 


o 

0054X 

R 

000000 

A - 

undfCn 

0 


/underflow via normalizing 

O 

00542 

R 

000000 

A 

OVBY00 

0 


/abnormal divide 


00543 

R 

000000 

A 

QVRFEX 

0 


/INTEGER OVERFLOW 


o 

00544 

R 

000000 

A 

JDVBY0 

0 


/integer DIVISION BY ZERO 

O 

00545 

R 

777000 

A 

KX000 

LAW 

^1000 



00546 

R 

776000 

A 

KT2000 

LAW 

*^2000 









.EJECT 


o 

o 









o 









o 

o 









o 

o 









o 

o 









o 

o 









o 

0 









o 

o 









o 

o 









o 
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»FP15T2» test module FOR SYSTEM EXERCISER 


PPXi?T2 SRC 


/diagnostic register bUFFER FILLED FROM ”ORR” 


00547 

R 

004604 

R 

REGADR 

,DSA (CAL? 

/BMB 00«17 

00550 

R 

004604 

R 


,PSA (OAL? 

/BMB 18»35 

0055X 

R 

004604 

R 


,DSA (CAL? 

/sc 12"17 and IR 06b17 

0055;? 

R 

004604 

R 


,OSA (UAU) 

/ERA 00"17 

00553 

R 

004604 

R 


,t?SA (CAL) 

/A SIGN and FHA 01-17 

00554 

R 

004604 

R 


,DSA (OAL) 

/FMA 18«35 

00555 

R 

004604 

R 


,DSA (CAL) 

/EPS 00-17 

00556 

R 

004604 

R 


,DSA (CAL) 

/B SIGN AND FM8 01al7 

00557 

R 

004604 

R 


,DSA (CAt,) 

/FMB 18^.35 

00560 

R 

004604 

R 


,DSA (CAt,) 

/B SIGN AND FMQ 1-17 

00561 

R 

004604 

R 


,DSA (CAL) 

/FMQ 185.35 

00562 

R 

004604 

R 


,DSA (CAL) 

/adder 00-17 

00563 

R 

004604 

R 


,OSA (CAL) 

/ADDER 18-3b 

00564 

R 

004604 

R 


,OSA (CAL) 

/JEA 00w17 

00565 

R 

004604 

R 


,DSA (CAL? 

/STA 00-17 (SEE BEUOH) 

00566 

R 

004604 

R 


,DSA (CAL) 

/AR 00-17 





/STATUS 

REGISTER 00'.;i 

■/ BIT EXPUANATION 





/S^^&0 


/FPlS BUSY 





/STA01 


/FETCH CYCLE 





/STAD2 


/opand cycle 





/STA03 


/EXp CYCLE 





/STA04 


/FUN CYCLE 





/STA05 


/NOR CYCLE 





/STA06 


/WRITE CYCLE 





/STA07 


/inti 





/STA08 


/INT2 





/STA09 


/TIME state 1 





/STA10 


/TIME state 2 





/STAU 


/TIME STATE 3 





/STAi2B 

17 

/DlAG INST REG 12-17 

00567 

R 

000567 

R 

RANDAT 

,DSA RANDAT 


00570 

R 

104515 

R 


JMS RANGEN 


00571 

R 

0405X3 

R 


DAC %XF'AC1, 


00572 

R 

104515 

R 


JMS RANGEN 


00573 

R 

040514 

R 


OAC %XFAC2 


00574 

R 

104515 

R 


JMS RANGEN 


00575 

R 

040515 

R 


OAC XXFACa 


00576 

R 

104515 

R 


JMS RANGEN 


00577 

R 

040516 

R 


DAC %XHAC1 


00600 

R 

104S1S 

R 


JMS RANGEN 


00601 

R 

040517 

R 


DAC %XHAC2 


00602 

R 

104515 

R 


JMS RANGEN 


00603 

R 

040520 

R 


DAC %XHAC3 


00604 

R 

200527 

R 


LAC OPCODE 


00605 

R 

5045/5 

R 


AND (0P6T09) 


00606 

R 

544600 

R 


SAD (MUL) 

/multiply mask 

00607 

R 

600630 

R 


JMP RANOTl 


00610 

R 

544601 

R 


SAD (OIV) 


00611 

R 

620567 

R 


jMPo RANDAT 

/DIVISION EXIT 

00612 

R 

544637 

R 


SAD (RDIV) 


00613 

R 

620567 

R 


JMP» RANDAT 

/DIVISION - EXIT 


, EJECT 
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FP15T2 

' SRC 

'FP15T2' TEST MODULE FOR SY; 

stem exerciser 





/addition and subtraction Masks 



00614 

R 

2005?16 

R 

LAC %XHAC1 




00615 

R 

504640 

R 

AN0 (37) 

/double 

precision 


00616 

R 

340513 

R 

TAD %xrACl 




00617 

R 

040516 

R 

DAC %XHACi 




00620 

R 

200527 

R 

LAC OPCQPL 




00621 

R 

504610 

R 

AND (PP) 




00622 

R 

544610 

R 

SAD (UP) 




00623 

R 

620567 

R 

PMP-» RANOAT 




00624 

R 

200516 

R 

LAC %XHAC1 




00625 

R 

504641 

R 

AND (27) 

/single 

PRECISION 


00626 

R 

040516 

R 

DAC %XHAC1 




00627 

R 

620567 

R 

JMPi^ RANPAT 








/TO MASK WHEN OPCODE 

IS integer 

MULTIPLY 

TO pessen overflows 





/AND INCREASE INTEGER 

"operation 



00630 

R 

200527 

R 

RANDTl lac OPCOPE 




00631 

R 

504627 

R 

and (DPIFL) 




00632 

R 

544604 

R 

SAD (CAU 




00633 

R 

741000 

A 

SKP 




00634 

R 

600644 

R 

PMP RANPT2 




00635 

R 

200515 

R 

LAC %XFAQ3 

/SINGLE 

PRECISION 

INTEGER 

00636 

R 

504642 

R 

AND (177M 




00637 

R 

040515 

R 

DAC %XFAC3 




00640 

R 

200520 

R 

LAC %xhac3 




00641 

R 

504642 

R 

and (1777) 




00642 

R 

040520 

R 

DAC %)^HAC3 




00643 

R 

620567 

R 

HANDAT 




00644 

R 

544610 

R 

RAN0T2 SAD (DP) 




00645 

R 

741000 

A 

SKP 




00646 

R 

620567 

R 

RANDAT 




00647 

R 

200514 

R 

LAC %XFAC2 

/DOUBLE 

PRECISION 

INTEGER 

00650 

R 

504642 

R 

AND (1777) 




00651 

R 

040514 

R 

DAC %XFAC2 




00652 

R 

200517 

R 

LAC %XHAC2 




00653 

R 

504642 

R 

AND (1777) 




00654 

R 

040517 

R 

DAC %xHac:2 




00655 

R 

620567 

R 

PMP4 RANDAT 








.EPECt 






o 


o 


o 










o 
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FPlt>T^ 

: SRC 

'FP15T2! TEST MODyi,E FOR SYSTEM EXERCISER 


o 





/FLOATING POINT RANDOM 

OPsCODE 

buffer 

1 Setup and random primer 

o 


006S?6 

R 

000000 

A 

FPRAN 0 






o 

006b7 

R 

204633 

R 

i,AC (AOPCDBF) 





o 

00660 

R 

044547 

R 

DAC AUtoRG 

/beginning of 

' Buffer 


00661 

R 

6206t?6 

R 

JMP<> FPRAN 











/legal floating POINLT 

OPERATIONS TO 

date 

o 

o 





/ 










/, . . .SUBTRACT, ! . , 






o 

00662 

R 

710400 

A 

OPCDBF 710400 

/ISB 

/SPI 



o 


00663 

R 

710&00 

A 

710500 

/esb 

/DPI 




o 

00664 

R 

710440 

A 

710440 

/FSB 

/SPF 



o 

00665 

R 

710450 

A 

710450 

/URFSB 

SPF UR 



00666 

R 

710460 

A 

710460 

/UNFSB 

/SPF 

UN 



o 

00667 

R 

710470 

A 

710470 

/UUFSB 

/SPF 

UR 

UN 

o 

00670 

R 

710540 

A 

710540 

/OSB 

/DPF 




00671 

R 

710550 

A 

710550 

/urdsb 

/DPF 

UR 



o 

00672 

R 

710560 

A 

710560 

/UNDSB 

/DPF 

UN 


o 

00673 

R 

710570 

A 

710570 

/ 

/m.iREVFRSE SUBTRACT! 

/UUDSB 

» f « 

/DPF 

UP 

UN 


o 

o 





/ 





00674 

R 

711000 

A 

711000 

/IRS 

/SPI 





00675 

R 

711100 

A 

711100 

/ERS 

/DPI 



0 

o 

00676 

R 

711040 

A 

711040 

/FRS 

/SPF 




00677 

R 

711050 

A 

711050 

/URFRS 

/SPF 

UR 



o 

00700 

R 

711060 

A 

711060 

/UNFRS 

/SPF 

UN 


o 

00701 

R 

711070 

A 

711070 

/UUFRS 

/SPF 

UR 

UN 


00702 

R 

711140 

A 

711140 

/DRS 

/DPF 





00703 

R 

711150 

A 

711150 

/urdrs 

/DPF 

UR 


o 

o 

00704 

R 

711160 

A 

711160 

/UNORS 

/OPF 

UN 



00705 

R 

711170 

A 

711170 

/UUDRS 

/DPF 

UR 

UN 


o 

00706 

R 

711400 

A 

/..., MULTIPLY,.,, 
/ 

711400 

/IMP 

/SPI 



o 

o 

00707 

R 

711500 

A 

711500 

/EMP 

/DPI 



o 


00710 

R 

711440 

A 

711440 

/FMP 

/SPF 





00711 

R 

711450 

A 

711450 

/URFMP 

/SPF 

UR 


o 

o 

00712 

R 

711460 

A 

711460 

/UNFMP 

/SPF 

UN 


00713 

R 

711470 

A 

711470 

/UUFMP 

/SPF 

UR 

UN 



00714 

R 

711540 

A 

711540 

/DMP 

/DPF 



o 

o 

00715 

R 

711550 

A 

711550 

/URDMP 

/DPF 

UR 


00716 

R 

711560 

A 

711560 

/undmp 

/DPF 

UN 




00717 

R 

7115/0 

A 

711570 

/UUDMP 

/DPF 

UR 

UN 

o 

o 





lEUECt 





o 










o 

o 










o 

o 










o 


o 


o 



trPl5T2» T^ST MOPUL,E POR SYSTEH EXERCJSPR 
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/.,,,D|VIOEf Ml 
/ 


00720 

r 

712000 

A 

712000 

/lOV 

/SPI 


00721 

R 

712100 

A 

712100 

/EOV 

/DPI 


00722 

R 

712040 

A 

712040 

/FDV 

/SPF 


00723 

r 

712050 

A 

712050 

/URFOV 

/SPF 

UR 

00724 

R 

712140 

A 

712140 

/OOV 

/DPF 


00725 

R 

712150 

A 

712150 

/URDDV 

/DPF 

UR 


/ 


/V, , .reverse divide. , , , 


00726 

R 

712400 

A 


712400 

/IRD 

/SPI 



00727 

R 

712500 

A 


712500 

/ERD 

/DPI 



00730 

R 

712440 

A 


712440 

/ERD 

/SPF 



00731 

R 

712450 

A 


712450 

/URFRD 

/SPF 

UR 


00732 

R 

712540 

A 


712540 

/DRD 

/DPF 



00733 

R 

712550 

A 

/ 

712550 

/urdrd 

/DPF 

UR 






( 

/ 1 f 1 

i 

.ADDITION. Mt 





00734 

R 

716000 

A 

f 

716000 

/IAD 

/SPI 



00735 

R 

716100 

A 


716100 

/EAO 

/DPI 



00736 

R 

716040 

A 


716040 

/fad 

/SPF 



00737 

R 

716050 

A 


716050 

/URFAD 

/SPF 

UR 


00740 

R 

716060 

A 


716060 

/UNFAP 

/SPF 

UN 


00741 

R 

7160/0 

A 


716070 

/UUFAD 

/SPF 

UR 

UN 

00742 

R 

716140 

A 


716140 

/DAO 

/DPF 



00743 

R 

716150 

A 


716150 

/urdad 

/DPF 

UR 


00744 

R 

716160 

A 


716160 

/UNDAD 

/DPF 

UN 


00745 

R 

716170 

A 

E0PC08 716170 

/UUDAD 

/DPF 

UR 

UN 

00746 

R 

000064 

A 


EOPCDBrOPCOBF'- 

‘3L 






00006H 

A 

AXKX 

-EOpCDB^OPCDBFrl 






/from this table of addresses The fpu operations will be bled 
/THIS table will BE SCRAMBLED EVERY 1000 PASSES 
/AND RESET TO THE LISTING EVERY 2000 PASSES 
.EDECT' 
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007^7 

R 

000662 

R 


00750 


000663 

R 


mibx 

R 

000664 

R 

<»R 

0075H 

R 

000665 

R 


00753 

R 

000666 

R 


00754 

R 

00066/ 

R 

ttR 

00755 

R 

000670 

R 



R 

000671 

R 


mi'o7 

R 

000672 

R 


00760 

R 

000673 

R 

ttR 

00761 

R 

000674 

R 


00762 

R 

000675 

R 

^R 

00763 

R 

000676 

R 

HR 

00764 

R 

000677 

R 

WR 

00765 

R 

000700 

R 

HR 

00766 

R 

000701 

R 

HR 

00767 

R 

000702 

R 

HR 

00770 

R 

000703 

R 

HR 

00771 

R 

000704 

R 

HR 

00772 

R 

000/05 

R 

«R 

00773 

R 

000706 

R 


00774 

R 

000707 

R 

HR 

00 775 

R 

000710 

R 

HR 

mnt 

R 

000711 

R 

HR 

mill 

R 

000712 

R 

HR 

01000 

R 

000713 

R 

HR 

01001, 

R 

000714 

R 

HR 

01002 

R 

000715 

R 

HR 

01003 

R 

000716 

R 


01004 

R 

000717 

R 


01005 

R 

000720 

R 

HR 

01006 

R 

000721 

R 

HR 

01007 

R 

000722 

R 

HR 

01010 

R 

000723 

R 

»R 

01011 

R 

000724 

R 

HR 

01012 

R 

000/25 

R 

ttR 

01013 

R 

000726 

R 

HR 

01014 

R 

000727 

R 

HR 

01015 

R 

000730 

R 

HR 

01016 

R 

000731 

R 

HR 

01017 

R 

000732 

R 

HR 

01020 

R 

000733 

R 

HR 

01021 

R 

000734 

R 

HR 

01022 

R 

000735 

R 

HR 

01023 

R 

000736 

R 


01024 

R 

000737 

R 

HR 

01025 

R 

000740 

R 

ttR 

01026 

R 

000741 

R 

HR 

01027 

R 

000742 

R 


01030 

R 

000743 

R 


01031 

R 

000744 

R 

HR 

01032 

R 

000745 

R 



A0PCD8F OPCOBF 

,REPT AXKXil 
OPCOBF*! 


AEQPCD8 EOPCDB 
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/ 


01PSS 

R 

200i?27 

R 

fppadd lac 

OPCODE 




03,034 

R 

504610 

R 

AND 

<PP) 




01035 

R 

544610 

R 

SAD 

(DP) 




01036 

R 

601071 

R 

vJMP 

opflap 

/DOUBLE PRECISION FLOATING AND 

INGEGER 

ADO 

01037 

R 

601105 

R 

JMP 

/ 

SPFLAD 

/SlNG and INTEGERLE PRECISION 

FLOATING 

ADD 


/<><><>i^ttSU8TRACT|gN<M>iM»<> 

/ 


01040 

R 

2m^^l 

R 

FPPSUB 

LAC 

OPCODE 




01041 

R 

504610 

R 


AND 

(DP) 




01042 

R 

544610 

R 


SAD 

(DP) 




01043 

R 

601073 

R 


JMP 

dpflsb 

/DOUBLE PRECISION FLOATING AND 

INTEGER 

SUBTRACT 

01044 

R 

601107 

R 

/ 

JMP 

SPFLSB 

/SING and INTEGERLE PRECISION 

FLOATING 

SUBTRACT 





ff 

IPLIOAT 

i 



01045 

R 

200527 

R 

FPPMUL 

EAC 

OPCODE 




01046 

R 

504610 

R 


AND 

(Dh 




01047 

R 

544610 

R 


SAD 

(DP) 




01050 

R 

601075 

R 


JMP 

dpflml 

/DOUBLE PRECISION FLOATING AND 

INTEGER 

MULTIPLY 

01051 

R 

601111 

R 


JMP 

SPFLML 

/SING AND INTEGERLE PRECISION 

FLOATING 

MULTIPLY 





/ 




01052 

R 

200527 

R 

( 

PPPOIV 

LAC 

OPCODE 




01053 

R 

504610 

R 


AND 

(Ph 




01054 

R 

544610 

R 


SAD 

(DP) 




01055 

R 

601077 

R 


JMP 

dpfldv 

/DOUBLE PRECISION FLOATING AND 

integer 

DIVIDE 

01056 

R 

601113 

R 

/ 

JMP 

SPFLOV 

/SING AND INTEGERLE PRECISION 

floating 

DIVIDE 


VERSE subtrac t I 

/ 


01057 

R 

200527 

R 

FPPRSB lac 

OPCODE 





01060 

R 

504610 

R 

and 

(Dh 





01061 

R 

544610 

R 

SAD 

(OP) 





01062 

R 

601101 

R 

JMP 

DPFLRS 

/DOUBLE PRECISION FLOATING AND 

INTEGER 

REVERSE 

SUBTRACTION 

01063 

R 

601115 

R 

JMP 

spflrs 

/SING and INTEGERLE PRECISION 

FLOATING 

REVERSE 

SUBTRACTION 


/i><»^h^<jREVERSE PIV 


01064 

R 

200527 

R 

FPPRDV LAC 

OPCODE 





01065 

R 

504610 

R 

and 

(PP) 





01066 

R 

544610 

R 

SAD 

(DP) 





01067 

R 

601103 

R 

JMP 

DPF'LHD 

/OOUBLE PRECISION FLOATING AND 

integer 

reverse 

DIVISION 

01070 

R 

601117 

R 

JMP 

spflrp 

/SING AND INTEGERLE PRECISION 

FLOATING 

REVERSE 

DIVISION 


.EJECT 
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»FP15T2» test module FOR SYSTEM EXERCISER 
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/SOFTWARE director OF DOUBLE PRECISION FLOATING AND INTEGER 
/ 

/SOFTWARE mantissa PREVIOUSLY LOADED BY "OLAC” 

/ 

/t f .addition 
/ 


01071 

R 

750000 

A 

DPFLAD 

CLA 


01072 

R 

601214 

R 


JMP 

dpflex 





(SUBTRACTION 

J 

01073 

R 

204643 

R 

( 

DpFLSB 

LAC 

(X) 

01074 

R 

601214 

R 

/ 

JMP 

dhflex 





f 

.multiplication 

J 

01075 

R 

204644 

R 

f 

DPFLML 

LAC 

(2) 

01076 

R 

601214 

R 

t 

JMP 

dpflex 





/.I, DIVISION 
/ 

01077 

R 

204645 

R 

DPFLDV 

LAC 

(3) 

01100 

R 

601214 

R 

i 

JMP 

dpflex 





/,, .REVERSE 
/ 

subtract: 

01101 

R 

204646 

R 

DpFLRS 

LAC 

(4) 

01102 

R 

601214 

R 


JMP 

dpflex 





.REVERSE 

i 

division 

01103 

R 

204647 

R 

OPFLRD 

LAC 

(5) 

01104 

R 

601214 

R 


JMP 

DPFLEX 


/ 

/ 

/ 

/ 

/ 

/ 

, EJECT 
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FPl^JZ SRC 


?FP15T2» TEST MODUEE FOR SYSTEM EXERCISER 


01105 R 2046‘J>0 R 

01106 R 601244 R 


01107 R 2046t?l R 
01110 R 601244 R 


01111 R 204600 R 

01112 R 601244 R 


01113 R 2046^2 R 


/SOFTWARE DIRECTOR OF SING AND INTEGEREE PRECISION FLOATING 
/ 

/SOFTWARE mantissa PREVIOUSLY LqAOEO BY "FLAG” 

/ 

/. ,, ADDITION 
/ 

SpFLAD LAC (6) 

DMP SPFLEX 

/ 

/,, .SUBTRACTION 
/ 

SpFLSB LAC (7) 

JMP SPFLEX 

/ 

/,,, multiplication 
/ 

SPFLML lac (10) 

JMP SPFLEX 

/ 

/,, .division 
/ 

SpFLDV LAC (11) 


01114 

R 

601244 

R 

UHP 

/ 

/,,, REVERSE 
/ 

SPFLRS LAC 

spelex 





subtraction 

01115 

R 

2046P3 

R 

(12) 

01116 

R 

601244 

R 

UMP 

/ 

/, , .REVERSE 
/ 

SPFLRD LAC 

SPFLEX 





division 

01117 

R 

2046t?4 

R 

(13) 

01120 

R 

601244 

R 

JMP 

SPFLEX 


iEJECT 
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FP15T'^ 

: SRC 

’PP15t2» test MODUI^E FOR SYSTEM EXERCISER 





/SINGUE AND DOUBi^E PRECISION INTEGER SOFTWARE EXECUTIONER 

01121 


204563 

R 

OPIEX EAC SOFTEX 

01122 

R 

041125 

R 

DAC DOIEX 

01123 

R 

103722 

R 

JMS DIAC /LOAD 3 RANUOM WORDS 

01124 

R 

000513 

R 

,DSA X,XFACl /AND FLOAT IF INTEGER 

01125 

R 

000000 

A 

DOIEX CAL 

01126 

R 

000516 

R 

,DSA %XHAC1 

01127 

R 

200527 

R 

LAC OPCQOE 

01130 

R 

504575 

R 

and (0P6T09) 

01131 

R 

544600 

R 

SAD <MUU 

01132 

R 

741000 

A 

SKP 

01133 

R 

601157 

R 

JMP DPIEXl 





/OPERATION IS'INTEGER MULTIPLY 





/must SWAP and SHIFT ONE RIGHT BECAUSE OF SOFTWARE FINISH 





/MY FMQ = %FAC2 AND %FAC3 WITH THE HIGH ORDER BITS 





/IF 7«FAC2 OR X,FAC3 NOT = 0# +1 TO OVRFLX 





/IF r 0, SWAP’%FAC2| 3 WITH %FAC4, 4A 

01134 

R 

200527 

R 

lac OPCODE 

01135 

R 

504610 

R 

AND (DF^) 

01136 

R 

544610 

R 

SAD (DP) 

01137 

R 

601143 

R 

JMP ,+4 

01140 

R 

203707 

R 

LAC %FAC4 

01141 

R 

740200 

A 

SZA 

01142 

R 

440543 

R 

ISH OVRFLX 

01143 

R 

203705 

R 

LAC %FAC2 

01144 

R 

740200 

A 

SZA 

01145 

R 

440543 

R 

ISH OVRFLX 

01146 

R 

203706 

R 

lac %FAC3 

01147 

R 

740200 

A 

SZA 

01150 

R 

440543 

R 

IS2 OVRFLX 

01151 

R 

203707 

R 

LAC %FAC4 ' 

01152 

R 

744020 

A 

RCR 

01153 

R 

043705 

R 

DAC '/ 9 FAC 2 

01154 

R 

204565 

R 

LAC %FAC4A 

01155 

R 

740020 

A 

RAR 

01156 

R 

043706 

R 

DAC %FAC3 
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0U57 

01160 

01161 

01162 

01163 

01164 

01165 


01166 

01167 

01170 

011/1 

01172 

011/3 

01174 

011/5 

011/6 

01177 

01200 

01201 

01202 

01203 

01204 

01205 

01206 
01207 
01210 
01211 
01212 
01213 


FP15T? SRC 


R 203/05 R 
R 543706 R 
R 740200 A 
R 601200 R 
R 143/04 R 
R 143707 R 
R 143721 R 


R 2005544 R 
R 741200 A 
R 600127 R 
R 200515 R 
R 740200 A 
R 440543 R 
R 200520 R 
R 740200 A 
R 440543 R 
R 600127 R 

R 102102 R 
R 203721 R 
R 744100 A 
R 600127 R 
R 203706 R 
R 740031 A 
R 043/06 R 
R 203705 R 
R 741401 A 
R 344643 R 
R 043705 R 
R 600127 R 


»FPl5T2t TEST MODUEE: FOR SYSTEH EXERCISER 

/IF RESULT IS 2EHO ^ CLEAR EXPONENT 
DPIEXl lac %FAC2 
SAD %FAC3 
SHA 

JMP DPIEX2 
D2M %FAG1 
D2M %FAC4 
DHM %FSIGN 

/IF INTEGER DIVISION BY 2ERQ 1$ EXPECTED AND THE FMA jS NOT 000000 
/THEN EXPECT OVERFLOW #30 ALSO WHEN SPI STORE 
LAC IDVBY0 
SNA 

UMP FPUXAl 
LAC %XFAG3 
SZA 

ISH OVRFL.X /BECAUSE %XFAC3 IS NORMALIHED IN FPU HARDWARE 

LAC %XHAC3 

SZA 

|SZ OVRFLX 

UMP FPUXAl 

/COMBINE SIGN BIT 'WITH AC 

PPIEX 2 JMS %FIXi ■ /Fix BACK TO INTEGER 
lac %FSIGN 
SMAICLL 
JMP FPUXAl 
LAC %FAC3 
fCA 

DAC %FAC3 
LAC %FAC2 
CMAJSlL 
TAD (1) 

DAC %FAC2 
JMP FPUXAl 
, EJECT 
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FP15T'< 

: SRq 

»FP15T2« TEST MOPUl^E FOR SYSTEM EXERCISER 
/double PRECISION FLOATING SOFTWARE EXECUTIONER 

012X4 

R 

341415 

R 

DPFLEX tad SOFCOP 

01215 

R 

041226 

R ■ 

OAC DOFEX 

01216 

R 

044563 

R 

DAC SOFTEX// 

01217 

R 

200527 

R 

LAC OPCODE 

01220 

R 

504603 

R 

AND (FL) 

01221 

R 

544604 

R 

SAD (CAU 

01222 

R 

6011^1 

R 

JMP DPIEX 

01223 

R 

101310 

R 

UMS sofnr 

01224 

R 

103722 

R 

UMS PLAC 

01225 

R 

000513 

R 

,DSA %XFAC1 

01226 

R 

000000 

A 

DOFEX CAl ” /SOFTWARE CALCULATIONS 

01227 

R 

000516 

R 

,DSA XoXHACI 

/IF Result is 2eRo « clear exponent 

01230 

R 

203705 

R 

lac %FAC2 

01231 

R 

543706 

R 

sad %FAC3 

01232 

R 

740200 

A 

SHA 

01233 

R 

601240 

R 

JMP ,+5 

01234 

R 

143704 

R 

D2M %FAC1 

01235 

R 

143707 

R 

Om %FAC4 

01236 

R 

143721 

R 

P2M %FSIGN 

01237 

R 

600127 

R 

JMP FPUXAl 

/COMBINE SIGN BIT WITH AC 

01240 

R 

203721 

R 

lac %FSIGN 

01241 

R 

343705 

R 

TAD %FAC2 

01242 

R 

043705 

R 

OAC %FAC2 

01243 

R 

600127 

R 

JMP FPUXAl /SOFTWARE RESULT LEFT IN %FaC1 TO %FAC3 

,EJECt 



o 


o 


o 
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PP15T^ 

SRC 

IFP15T2I 

TEST MODULE FOR SYSTEM EXERCISER 

o 





/ 








/SINGLE PRECISION floating SOFTWARE EXECUTIONE 

y 

o 

01244 

R 

341415 

R 

spflix TAD 

SQFCOP 



01245 

R 

041262 

R 

DAC 

SOFEX 



01246 

R 

044563 

R 

DAC 

SOFTEX 


o 

01247 

R 

200527 

R 

l-AC 

OPCODE 



012^0 

R 

504603 

R 

AND 

(FL) 



01251 

R 

544603 

R 

sad 

(FL) 


o 

01252 

R 

6012S7 

R 

JMP 

,+5 



01253 

R 

777772 

A 

LAW 

-56 

/BACK UP 


01254 

R 

344563 

R 

TAD 

SOFTEX 

/POINTER FOR 

o 

01255 

R 

044563 

R 

DAC 

SOFTEX 

/DP SOFTWARE 


01256 

R 

601121 

R 

v!MP 

DPIEX 

/and go TO INTEGER 


01257 

R 

101310 

R 

JMS 

SOFNR 


o 

01260 

R 

104071 

R 

JMS 

FLAC 



01261 

R 

000513 

R 

,DSA 

%XFAC1 



01262 

R 

000000 

A 

SOFEX CAL 


/SOFTWARE calculations 

o 

01263 

R 

000516 

R 

lOSA 

5SXHAC1 







/if RESULT IS HERO - CLEAR EXPONENT 


01264 

R 

203705 

R 

LAC 

%FAC2 


o 

01265 

R 

543706 

R 

SAD 

%FAC3 



01266 

R 

740200 

A 

SHA 




01267 

R 

6012/4 

R 

JMP 

»T5 


o 

01270 

R 

143704 

R 

D7M 

%FAC1 



01271 

R 

143707 

R 

DZM 

%FAC4 



01272 

R 

143721 

R 

DHM 

X.FSIGN 


o 

03.273 

R 

600127 

R 

JMP 

FPUXAl 







/COMBINE SIGN BIT WITH 

AC 


01274 

R 

203721 

R 

LAC 

%fsign 


o 

01275 

R 

343705 

R 

TAD 

%FAC2 



01276 

R 

043705 

R 

DAC 

%FAC2 



01277 

R 

203704 

R 

LAC 

%FAC1 


o 

01300 

R 

504655 

R 

AND 

{777) 



01301 

R 

043704 

R 

DAC 

%FAC1 



01302 

R 

203706 

R 

LAC 

%FAC3 


o 

01303 

R 

504630 

R 

AND 

(777000) 



01304 

R 

343704 

R 

TAD 

%FAC1 



01305 

R 

043/04 

R 

DAC 

%FAC1 


o 

01306 

R 

143706 

R 

DHM 

%FAC3 



01307 

R 

600127 

R 

JMP 

FPUXAl 

/SOFTWARE RESULT LEFT 


o 


o 


o 


o 


o 


o 


IN %rACl TO 7.FAC3 


■EJECT 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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/SOFTWARE NORMiyHEP [OR EQAO FUNCTION CONFIRMATION 


01310 

R 

001310 

R 

sofnr 

,OSA 

f 

01311 

R 

200SJ27 

R 


LAC 

OPCODE 

01312 

R 

504575 

R 


AND 

(0P6T09) 

01313 

R 

544601 

R 


SAD 

(UIV) 

01314 

R 

741000 

A 


SKP 


01315 

R 

544637 

R 


SAD 

(RDIV) 

013J.6 

R 

601326 

R 


vIMP 

SOFl 

01317 

R 

zm^zi 

R 


1.AC 

OPCODE 

01320 

R 

504656 

R 


AND 

(UNiru 

01S21 

R 

544604 

R 


SAP 

(CAU 

01322 

R 

621310 

R 


JMP<5: 

SOFNR 

01323 

R 

504657 

R 


AND 

(UN) 

01324 

R 

544657 

R 


SAD 

(UN) 

01325 

R 

621310 

R 


JMP<> 

SOFNR 

01326 

R 

200^527 

R 

SOFl 

LAC 

OPCODE 

01327 

R 

504610 

R 


AND 

(DP) 

01330 

R 

544610 

R 


SAD 

(OP) 

01331 

R 

601335 

R 


sJMP 

SOF2 

01332 

R 

200^313 

R 


LAC 

%XFAC1 

01333 

R 

504630 

R 


AND 

(777000) 

01334 

R 

040515 

R 


DAC 

%XFAC3 

01335 

R 

200i?14 

R 

S0F2 

LAC 

%XFAG2 

01336 

R 

504660 

R 


AND 

(377777) 

01337 

R 

540515 

R 


SAD 

7oXPAC3 

01340 

R 

740200 

A 


S2A 


01341 

R 

741000 

A 


SKP 


01342 

R 

621310 

R 


JMP» 

SOFNR 

01343 

R 

2005J4 

R 


LAC 

%XFAC2 

01344 

R 

504626 

R 


AND 

(400000) 

01345 

R 

043721 

R 


DAC 

%FSIGN 

01346 

R 

200514 

R 


LAC 

%XFAC2 

01347 

R 

504660 

R 


AND 

(377777) 

01350 

R 

040514 

R 


DAC 

%)(FAC2 

01351 

R 

200514 

R 

FNXSA 

LAC 

%XFAC2 

01352 

R 

504661 

R 


ANO 

(LAC) 

01353 

R 

740200 

A 


S5?A 


01354 

R 

601^05 

R 


JMP 

SQFNRX 

01355 

R 

2001?15 

R 


LAC 

%XFAC3 

01356 

R 

744010 

A 


RCL 


01357 

R 

040515 

R 


DAC 

%XFAC3 

01360 

R 

200^14 

R 


LAC 

%XFAC2 

01361 

R 

7<?0010 

A 


RAL 


01362 

R 

040514 

R 


DAC 

XoXFAC2 

01363 

R 

200527 

R 


LAC 

OPCODE 

01364 

R 

504610 

R 


AND 

(DP) 

01365 

R 

544610 

R 


SAD 

(DP) 

01366 

R 

601401 

R 


JMP 

S0F3 






.EJECT 
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FP15T2 SRC 'FP15T2' TEST MODUI-E FOR SYSTEM EXERCISER 


01367 

R 

200513 

R 


L,AC %XFAC1 


01370 

R 

504630 

R 


and (777000) 


01371 

R 

040530 

R 


DAC TFMP 


013/2 

R 

200513 

R 


IhQ %XFA01 


01373 

R 

504655 

R 


AND (777) 


0137-1 

R 

344631 

R 


TAD (^i) 


01375 

R 

504655 

R 


AND (777) 


01376 

R 

340530 

R 


TAD TEMP 


01377 

R 

040513 

R 


PAC %XFAC1 


01400 

R 

601*551 

R 


JMP FNXSA 


01401 

R 

777777 

A 

S0E3 

LAW «1 


01402 

R 

340513 

R 


tad %xfaci 


01403 

R 

040513 

R 


DAC %XFAG1 


01404 

R 

601351 

R 


0MP FNXSA ' 


01405 

R 

200514 

R 

SOFNRX 

LAC %XFAC2 


01406 

R 

343721 

R 


TAD %FSIGN 


01407 

R 

040514 

R 


DAC %XFAC2 


01410 

R 

200527 

R 


LAC OPCODE 


01411 

R 

504610 

R 


AND (Ph 


01412 

R 

544604 

R 


SAD (CAL) 


01413 

R 

140515 

R 


DZM %XFAC3 


01414 

R 

621310 

R 


0MP<? SQFNR 






/SOFTWARE CAECUEATION 

J 

subroutines 

01415 

R 

121416 

R 

SOFCPD 

JMSo ,*1 






/DOUBLE 

PRECISION FLOATING AND SP AND OP INTEGER 

01416 

R 

004055 

R 

/ 

,DSA DFAP 

/APDITIQN 

01417 

R 

003771 

R 


,OSA DSUB 

/SUBTRACTION 

01420 

R 

004000 

R 


,DSA OMPY 

/multiplication 

01421 

R 

004025 

R 


,DSA UDVD 

/DIVISION 

01422 

R 

004042 

R 


,DSA DSBR 

/reverse subtraction 

01423 

R 

004013 

R 


iDSA DPVR 

/REVERSE DIVISION 





/single 

/ 

PRECISION Floating 

01424 

R 

004135 

R 

( 

,OSA FAD 

/ADDITION 

01425 

R 

004151 

R 


,OSA F5UB 

/SUBTRACTION 

01426 

R 

004160 

R 


,DSA FMPY 

/MULTIPLICATION 

01427 

R 

004173 

R 


,DSA FDVD 

/DIVISION 

01430 

R 

004210 

R 


,0SA FBBH 

/reverse subtraction 

01431 

R 

004223 

R 


,DSA FDVR 

/REVERSE division 






.EJECT' 




page 
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FPli^TS 

: SRC 

'FP15T2' TEST MOPy|_E FOR SYSTEM EXERCISER 





/INTERRUPT EXCEPTION 

UIT address 


R 

000000 

A 

XJEA 0 


03,43.5 

R 

60l44i^ 

R 

JMP OVFLO 

/OVERFLOW 

01434 

R 

000000 

A 

0 


01435 

R 

601454 

R 

JMP UNFED 

/underflow 

01436 

R 

000000 

A 

0 


01437 

R 

601465 

R 

JMP DVBY0 

/abnormal division by zero 

01440 

R 

000000 

A 

0 


01441 

R 

6014/6 

R 

JMP NEXMEM 

/ 

/illegal memory reference 


/OVERR^ON 

/ 


01442 

R 

777777 

A 

OVFIO UAW ^1 


01443 

R 

341432 

R 

TAD XJEA 

/DECREMENT RETURN 

01444 

R 

041432 

R 

DAC XJEA 

/pc BY ONE 

014 45 

R 

044560 

R 

PAG JEADRS# 


01446 

R 

200540 

R 

EAC OVRFUR 

/FROM ROUNDING 

01447 

R 

340536 

R 

TAD OVRFEl 


01450 

R 

340543 

R 

TAD OVRFEX 


01451 

R 

750200 

A 

S7AICLA 


01452 

R 

621432 

R 

JHPii XJEA 

/ 



/UNEXPECTED HARDWARE PVErPLOW? 
/ 


01453 

R 

601502 

R 

/ 1, FRQM ROUNDING 
/ 2, FROM exponent VIA 
/ 

JMP XF|,ON 

MULTIPLY 

01454 

R 

777777 

A 

/underflow 

/ 

UNFLO law 77 % 


01455 

R 

341434 

R 

TAD XUEA*2 

/DITTO 

01456 

R 

041434 

R 

DAC xjEA+2 


01457 

R 

044560 

R 

DAC JEADRS 


01460 

R 

200541 

R 

LAC UNDFLN 

/FROM NORMALIZATIN 

01461 

R 

340537 

R 

TAD UNDFLl 


01462 

R 

750200 

A 

SZAICLA 


01463 

R 

621434 

R 

UMP» XUEA+2 

J 

/underflow expected 

01464 

R 

601502 

R 

/UNEXPECTED HARDWARE UNQERFeOW 

/ 

/ 3^ from NORMAEUATIDN 
/ 4, FROM EXPONENT VIA MULTIPLY 
/ 

JMP XFLQW 


, EJECT 


27 


FP15T2 SRC 

'FPX5T2' 

xpr MooyuE: for system exerciser 





/DIVISION BY 

i 

’ izm 


0X465 

R 

777777 

A 

PVBY0 

EAW 

«i 


01466 

R 

341436 

R 


TAD 

XJEA+4 


01467 

R 

041436 

R 


OAC 

XJEA+4 


01470 

R 

044560 

R 


DAC 

JEAPRS 


01471 

R 

200542 

R 


UAC 

DVBY00 


01472 

R 

340544 

R 


TAD 

IDVBY0 


01473 

R 

750200 

A 


S-2A JCEA 


014/4 

R 

621436 

R 

/ 

/IJNEXPEC 

/ 

/ 

/ 1 ELEG At, 


' XJEA-^4 

/ABNORMAE division expected 





;ted 

HARDWARE 

ABNORMAU division 

01475 

R 

601502 

R 

JMP 

XFLOW 






. memory referenced 

014/6 

R 

740040 

A 

NEXMEH 

HIT 



014/7 

R 

601476 

R 


JMP 

1^1 


01500 

R 

740040 

A 

TNEXMM 

HIT 



01501 

R 

601500 

R 


JMP 



01502 

R 

200540 

R 

XPEOW 

LAC 

OVRFLB 


01503 

R 

544604 

R 


SAD 

(CAEil ' 


01504 

R 

601507 

R 


JMP 

1 *? 


01i?05 

R 

204643 

R 


LAC 

(1) 

f 1, overflow from ROUNDINO 

01506 

R 

604344 

R 


JMP 

ERR0R3 

/unexpecteu jea break 

01507 

R 

200536 

R 


LAG 

OVRFLi 


01510 

R 

544604 

R 


SAD 

(CAL? ’■ 


01511 

R 

601514 

R 


JMP 

,^3 


01512 

R 

204644 

R 


LAC 

(2? 

/ 2, exponent overflow 

01513 

R 

604344 

R 


JMP 

ERR0R3 

01514 

R 

200541 

R 


LAC 

UNDFLN 


01515 

R 

544604 

R 


SAD 

tCAL? 


01516 

R 

601521 

R 


JMP 

1+3 


0151/ 

R 

204645 

R 


LAC 


/ 3, underflow from NORMILIHATION 

01520 

R 

604344 

R 


JMP 

ERRQR3 

01521 

R 

200537 

R 


LAC 

UNDFLi 


01522 

R 

544604 

R 


SAD 

(CAL) 


01523 

R 

601526 

R 


JMP 



01524 

R 

204646 

R 


LAC 

(4) 

/ 4, EXPONENT Underflow 

01525 

R 

604344 



JMP 

ERRQR3 


01526 

R 

20054"2 

R 


LAC 

DVBY00 


01527 

R 

544604 

R 


SAD 

(CAL)" 


01530 

R 

601533 

R 


JMP 



01531 

R 

204647 

R 


LAC 

(5? 

/ 5, floating abnormal divide 

01532 

R 

604344 

R 


JMP 

ERRQR3 


01533 

R 

200544 

R 


LAC 

IDVBY0 


01534 

R 

544604 

R 


SAD 

(CAU" 


01535 

R 

604344 

R 


JMP 

ERR0R3 


01536 

R 

204662 

R 


LAC 

(25) 

/ 25, integer division BY ZERO 

01537 

R 

604344 

R 


JMP 

ERR0R3 







, eject 
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ppXi?T2 SRQ 


’FP15T2I TEST HOPU|^E FOR SYSTEM EXERCISER 






/EXPECTED interrupts 

FROH( 1 |BUT NONE OCCURED 

0X&40 

R 

204652 

R 

EINTll 

LAC 

(U1 

/ U, overflow FROH ROUNDING 

0X54X 

R 

741000 

A 


SKP 



0X542 

R 

204653 

R 

EINT12 

LAC 


/ 12, EXPONENT OVERFLOW 

0X543 

R 

741000 

A 


SKP 



0X544 

R 

204625 

R 

EINT30 

LAC 

(3B) 

/ 30, integer overflow 

0X545 

R 

604356 

R 


JMP 

ERRORA 

/expected jea break but none occurred 

01546 

R 

204654 

R 

EINTX3 

LAC 

<“) 

/ 13, UNDERFLOW FROH NOrNAL 1 2AT I ON 

0X547 

R 

74X000 

A 


SKP 



0X550 

R 

204663 

R 

EINTX4 

LAC 

(14) 

/ 14, EXP UNDFLOW 

0X55X 

R 

604356 

R 


JMP 

ERR0R4 

/expected jea break but none occurred 

01552 

R 

204664 

R 

EINTX5 

LAC 

(IS) 

/ 15, floating abnormal DIVISION 

0X553 

R 

741000 

A 


SKP 



0X554 

R 

204665 

R 

EINT35 

LAC 

(3S) 

/ 35, integer division bV hero 

0X555 

R 

604356 

R 


JMP 

ERR0R4 

/expected jea break but none occurred 





7SlNGt,E 

PRECISION FLOATING RESTRICTIONS FOR "RANOEX" 

0X556 

R 

001556 

R 

IFREST 

,DSA 

^ 1 


0X557 

R 

777777 

A 

SPFRES 

LAW 

«1 


01560 

R 

040534 

R 


OAC 

%NAX 

/prep for possible 

0156X 

R 

040535 

R 


DAC 

%NA2 

/data format error 

0X562 

R 

200527 

R 


LAC 

OPCQDE 


0X563 

R 

504627 

R 


AMD 

(DPJFL) 


01564 

R 

544603 

R 


SAD 



01565 

R 

741000 

A 


SKP 



0X566 

R 

601606 

R 


JMP 

SPIRES 


0X567 

R 

1405X5 

R 


P^M 

%XFAC3 


01570 

R 

X40533 

R 


D^5M 

%ANSR3 


0X571 

R 

140520 

R 


DZM 

%XHAC3 


0X572 

R 

621556 

R 


JHP« 

' IFREST 






/double: 

precision floating restrictions For "randex" 

01573 

R 

000000 

A 

PPFRES 

0 



01574 

R 

200527 

R 


LAC 

OPCODE 


01575 

R 

504627 

R 


AND 

(OP;FL) 


01576 

R 

544627 

R 


SAD 

(DPIFL) 


0X577 

R 

741000 

A 


SKP 



0X600 

R 

621573 

R 


JMP« 

OPFRES 


0X60X 

R 

20035X 

R 


LAC 

fpust' 


01602 

R 

504666 

R 


AND 

Is’UR^l) 

/always store UR FOR UP FL 

01603 

R 

344620 

R 


TAD 

<UR) 


0X604 

R 

040351 

R 


DAC 

fpust 


0X605 

R 

621573 

R 


JMP« 

■ PPFRES 






/single 

PRECISION integer ReSTRICTINS FOR "RaNDEX" 

0X606 

R 

544604 

R 

SPIRES 

SAD 

<5^l) 


01607 

R 

741000 

A 


SKP 



016X0 

R 

601625 

R 


JMP 

DPIRES 


016X1 

R 

140514 

R 


d:?m 

%XFAC2 


0X6X2 

R 

140532 

R 


D2M 

%ANSR2 


0X613 

R 

143705 

R 


D2M 

%FAC2 


0X6X4 

R 

140517 

R 


D^M 

%XHAC2 


01615 

R 

1405X3 

R 


D2M 

%XFAC1 


0X616 

R 

14053X 

R 


OHM 

%ANSR1 


0X617 

R 

X40516 

R 


dhm 

%XHACi 


01620 

R 

143704 

R 


DZM 

%FAC1 ■ 
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PP15t^ 

: SR0 

'FP15T2I test HODUEE FOR SYSTEM EXERC 

/IF MANTISSA = 400000» +1 TO OVRFtX 
/because BOUNDRY LIMIT EXCEEDED ANU OVERFI 

01621 

R 

200515 

R 

LAC %XFAC3 

01622 

R 

544626 

R 

sad (400000) 

01623 

R 

440543 

R 

IS2 OVRFLX 

01624 

R 

6215S6 

R 

UMP« IFREST 

/double precision integer RESTRICTIOS FOR 

01625 

R 

544610 

R 

DPIRES SAD (DP) 

01626 

R 

741000 

A 

SKP 

01627 

R 

621556 

R 

JMP<> IFREST 

01630 

R 

140513 

R 

DHM %XFACi 

01631 

R 

140531 

R 

DHM %ANSRi 

01632 

R 

140516 

R 

D^M %XHACl 

01633 

R 

143704 

R 

D0M %FAC1 

01634 

R 

621556 

R 

JHPii IFRFST 

/IF abnormal, division do not branch 

01635 

R 

000000 

A 

TpBRA 0 

01636 

R 

200542 

R 

LAC DVBY00 

01637 

R 

340544 

R 

fAD IOVBY0 

01640 

R 

740200 

A 

S2 A 

01641 

R 

621635 

R 

JMP» TFBRA /EXIT t, NO TEST 

/IF integer »'EX!T - NO BRANCHING HERE 

01642 

R 

200527 

R 

LAC opcopi: 

01643 

R 

504603 

R 

AND (Ft) 

01644 

R 

544604 

R 

SAD (CAL) 

01645 

R 

621635 

R 

UMP« TFBRA 
/IF SPF-tUR exit 

01646 

R 

200527 

R 

lac opcqdl 

01647 

R 

504667 

R 

AND (DP|FL,1UR!UN) 

01650 

R 

544670 

R 

SAP (FLIUR) 

01651 

R 

621635 

R 

JMP» TFBRA /EXIT 

/IF SPF^UR EXIT 

01652 

R 

200527 

R 

lac OPCODE 

01653 

R 

504667 

R 

and (DPJFLIURIUN) 

01654 

R 

544670 

R 

SAD (FLIUH) 

01655 

R 

621635 

R 

JHP» TFBRA /EXIT 

/ERRORS QCCURING NOW ARE BRANCH FUNCTION 1 

01656 

R 

777777 

A 

LAW r?l 

01657 

R 

044554 

R 

PAC CdMPLP 
/BRANCH IF ZERO FMA 

01660 

R 

144553 

R 

TBZA DHM branch# 

01661 

R 

200527 

R 

LAC OPCODE 

01662 

R 

504610 

R 

ANP (OP) 

01663 

R 

544610 

R 

SAD (DP) 

01664 

R 

601670 

R 

JMP TBZAl 

01665 

R 

203704 

R 

LAC %FAC1 

01666 

R 

504630 

R 

AND (777000) 

01667 

R 

741000 

A 

SKP 

, EJECT 


will on cfpust 


"RANOEX" 


FAILURES 



PAGE 
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FP16T< 

: SRC 

'FP1ST2' TEST MODULE FOR SYSTEM EXERCISER 

01670 

R 

203706 

R 

TB2A1 

EAC %FAC3 

01671 

R 

040530 

R 


OAC TEMP 

0167;^ 

R 

203/05 

R 


EAC %FAC2 

01673 

R 

504660 

R 


AND (377777) 

0167^ 

R 

540530 

R 


SAD TEMP 

01675 

R 

741000 

A 


SKP 

01676 

R 

601701 

R 


JMP 1*3 

01677 

R 

741200 

A 


SNA 

01700 

R 

444553 

R 


isi branch 

01701 

R 

204671 

R 


EAC (B2A) 

01702 

R 

101752 

R 

/BRANCH 

JMS SBRAN 
IF negative FMA 

01703 

R 

144553 

R 

TBHA 

D2M branch 

01704 

R 

203721 

R 


EAC %FSIGN 

01705 

R 

741100 

A 


SPA 

01706 

R 

444553 

R 


IS2 BRANCH 

01707 

R 

204672 

R 


EAC (BMA) 

01710 

R 

101752 

R 

/BRANCH 

JMS SBRAN 
IF FMA < PR r 0 

01711 

R 

144553 

R 

TBEE 

D0M branch 

01712 

R 

203/05 

R 


EAC %FAC2 

01713 

R 

741100 

A 


SPA 

01714 

R 

444553 

R 


IS2 BRANCH 

01715 

R 

504660 

R 


AND (377777) 

01716 

R 

540530 

R 


SAP TEMP 

01717 

R 

741000 

A 


SKP 

01720 

R 

601723 

R 


JMP 1*3 

01721 

R 

741200 

A 


SNA 

01722 

R 

444553 

R 


IS2 branch 

01723 

R 

2046/3 

R 


EAC (BEE)' 

01724 

R 

101752 

R 

/BRANCH 

JMS SBRAN 
IF POSITIVE FMA 

01725 

R 

144553 

R 

TBPA 

D2M branch 

01726 

R 

203721 

R 


EAC %FSIGN 

01727 

R 

740100 

A 


SMA 

01730 

R 

444553 

R 


IS2 BRANCH 

01731 

R 

204674 

R 


EAC (BPA) 

01732 

R 

101752 

R 

/BRANCH 

JMS SBRAN 
UNCONDITINAE 

01733 

R 

444553 

R 

TBRU 

IS2 branch 

01734 

R 

204675 

R 


EAC (BRU) ■ 

01735 

R 

101752 

R 


JMS SBRAN 
, EJECT 



o 











O 

o 











o 
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PP15T2 SRQ 

»fpi5t2» test Mopyu 

for system exerciser 






o 





/BRANCH IF FMA N0N^2EH0 






o 


01736 

R 

144553 

R 

TBNA D2M BRANCH 







o 

01737 

R 

203705 

R 

LAC %FAC2' 







01740 

R 

504660 

R 

AND (377/77) 






o 


01741 

R 

540530 

R 

SAD TEMP 








01742 

R 

740200 

A 

SHA 






o 

o 

01743 

R 

444553 

R 

I $2 BRANCH 







01744 

R 

204676 

R 

LAC (BNA) 







o 

01745 

R 

101752 

R 

DMS SBRAN 






o 

01746 

R 

I4455v$ 

R 

/branch if GUARD BJT IS 
TBAC D2M BRANCH 

SET 








01747 

R 

204677 

R 

LAC (BAC? 

/guard bit should always be cleared 

FROM STORE 

INSTRUCTION 



o 

o 

01750 

R 

101752 

R 

JMS SBRAN 

/therefore bna should never 

BRANCH 





01751 

R 

621635 

R 

JMP<» TFBRA 

/EXIT branch testing 






o 

01752 

R 

000000 

A 

SBRAN 0 





o 

01753 

R 

041772 

R 

DAC YBRANCH 







01754 

R 

041764 

R 

DAC NBRANCH 







o 

01755 

R 

204553 

R 

LAC BRANCH 

/IF = 1 BRANCH 





o 

01756 

R 

741200 

A 

SNA 

/IF = 0 NO BRANCH 






01757 

R 

101762 

R 

JMS NOBRAN 

/branch = 0! NO BRANCG 






o 

01760 

R 

101771 

R 

JMS BRAN 

/BRANCH == 1! BRANCH 





o 

01761 

R 

621752 

R 

JMP<» SBRAN 

/EXIT BRANCHES 






01762 

R 

000000 

A 

nobran 0 







o 

01763 

R 

441762 

R 

ISl NOBRAN 

/*! TO RETURN 





o 

01764 

R 

000000 

A 

NBRANCH CAL 

/OCTAL equivalent of BRANCH INSTRUCTION 





01765 

R 

001767 

R 

1 +2 







o 

01766 

R 

621762 

R 

JMP4 NOBRAN 

/EXIT; OK 





o 

01767 

R 

604401 

R 

JMP ERR0R6 

/A BRANCH OCCURRED WHEN UNEXPECTED 






01770 

R 

621^2 

R 

JMP» NOBRAN 







o 

01771 

R 

000000 

A 

BRAN 0 







01772 

R 

000000 

A 

YBRANCH CAL 

/OCTAL EQUIV 





o 


01773 

R 

001775 

R 

1 *2 

/exit; ok 






o 

01774 

R 

604414 

R 

JMP ERRQR7 

/NO BRANCH OCCURRED WHEN EXPECTED 





o 

01775 

R 

621771 

R 

JMP^» BRAN' 











/RESET ADDRESS BUFFER TC 

original setting 






o 

01776 

R 

001776 

R 

Initaor ,DSA , 






o 

01777 

R 

776000 

A 

LAW »2000 







02000 

R 

040546 

R 

DAC Kt2000 







o 

02001 

R 

204633 

R 

LAC (AOPCDBF) 






o 

02002 

R 

044547 

R 

DAC AUTORG 







02003 

R 

204700 

R 

LAC (OPCPBF) 







o 

02004 

R 

741000 

A 

SKP 






o 

02005 

R 

344643 

R 

TAD (1) 







02006 

R 

064547 

R ■ 

DACtt AUTORG 







o 

02007 

R 

444547 

R 

TS2 AUTORG 






o 

02010 

R 

541032 

R 

SAD AEOPCDB 







02011 

R 

621776 

R 

JMP^* INITADR 







o 

02012 

R 

602005 

R 

JMP ,»5 
.EJECT 






o 

r\ 











o 

o 











o 

o 











c 
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FP1ST2 SRC 


'FP15T2' TEST MODULE FOR SYSTEM EXERCISER 


O 


O 



o 




o 

o 

PAGE 33 FPI^T? SRQ SljBl 

ITLE FPOINTbNQN 


o 

o 


, TITLE subtitle 

FPPINT^NON 

o 


/GENERAL 

/ 

floating point 

ARITHMETIC 


o 

/ 

/ 

/ 

floating point 

MATH (N0N=EAE) 

o 

o 

/ 

y 

%FLOT, 

float integer to floating accumulator, 

o 


/ 

%FUNF, 

UNFLOAT SECOND WORD OF FLOATING ACCUMULATOR TO A^^REG, 


o 

/ 

%FNEG, 

negate the floating ACCUMULATOR 

o 

/ 

%FG, 

SHORT GET ARGUMENT (ADDRESS) 


/ 

%FNOR, 

normalize the Floating accumulator 


o 

/ 

%FH, 

hold the floating accumulator 

o 

/ 

%PJR, 

ROUND result and INSERT SIGN 


/ 

%FS, 

SIGN control 


o 

/ 

%ANEG, 

negate A”REG, 

o 

/ 

/ 

/ 

%SWICH 

SWITCH THE floating AND HELD ACC'S, 

o 

%FA, 

general floating ADD 

o 

/ 

%FM, 

GENERAL FLOATING MULTIPLY 


/ 

%FD, 

general floating divide 


o 

o 

/ 

/ 

/TERNS? 

/ 

%FAC1 

exponent-floating point accumulator 

o 

o 

/ 

%FAC2 

SIGN+HIGHnOROER MaNTISSa-FLT ACC 


/ 

j 

?^PA03 

low-order MANTISSA-FLT ACC 


o 

f 

/ 

%haoi 

exponent-held Accumulator 

o 


/ 

%HAC2 

SIGN+HIGH-ORDER MANTISSA-HELO ACC 


o 

/ 

%HAC3 

LOW-ORDER mantissa 

o 

/ 

/ 

AwREG 

hardware ACCUMULATORI AC) 

o 

/ 

300000 A ADD15S300000 

.EJECT 


o 

o 




O 

o 




O 

o 




O 

o 




O 

o 




O 

0 




O 

o 




O 

o 




o 
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FPl'S^^ SRC 


SUBTITLE FPQINT5-NQN 


/ 






/negate; 

/ 

THE 

A^sREG 

020X3 

R 

000000 

A 

/ 

%aneg, 

0 


020X4 

R 

744001 

A 


CMA! 

CLE 

0201^ 

R 

344643 

R 


TAD 

(1 

020i«? 

R 

6S20X3 

R 



?^ANEG 





/negate 

THE 

FSIGN 

02017 

R 

000000 

A 

%SNEG, 

0 


02020 

R 

203721 

R 


lAC 

%FSIGN 

0202X 

R 

244626 

R 


XOR 

(400000) 

02022 

R 

04372X 

R 


OAC 

7oFS j GN 

02023 

R 

6220X7 

R 



' 5JSNEG, 


/FLOAT integer TO FLOATING ACCUMULATOR (/.PLOT,) 
/CALLING SEQUENCEI 

/SUBR CALLUNTEgER IN A^ 
/RETURN! INTEGER 
/A=REG IS unchanged 


02024 

R 

000000 

/ 

/ 

/ 

A %F 

JMS 

NEXT 

LOT, 0 

^^aoT, 

' JNSTRUCTipN 

02025 

R 

200527 

R 

LAG 

OPCODE 

02026 

R 

504603 

R 

AND 

(FL) 

02027 

R 

544603 

622024 

R 

SAD 

(FU 

02030 

R 

R 

JMP« 

' %FL0T, 

02031 

R 

14370i 

R 

DHM 

%FAaX' 

02032 

R 

200527 

R 

LAC 

OPCODE 

02033 

R 

504610 

R 

AND 

(PP) ^ 

02034 

R 

544610 

R 

SAD 

(DP) 

02035 

R 

602^0 

R 

JMP 

i+? 

02036 

R 

203706 

R 

LAC 

%FA03 

02037 

R 

602043 

R 

JMP 

, *4 

02040 

R 

203705 

R 

LAC 

%FAC2 

0204X 

R 

504660 

R 

AND 

(377777) 

02042 

R 

543706 

R 

SAD 

%FAC3 ’ 

02043 

R 

740200 

A 

SHA 


02044 

R 

602050 

R 

JMP 

1 ^ 

02045 

R 

143705 

R 

D2M 

%FAC2 

02046 

R 

143706 

R 

D2M 

%FAC3 

02047 

R 

622024 

R 

JMP« 

/«feot, 

02050 

R 

200527 

R 

LAG 

OPCODE 

02051 

R 

504610 

R 

AND 

(PP) 

02052 

R 

5446X0 

R 

SAD 

(DP) 

02053 

R 

602065 

R 

JMP 

%FL0TX 

02054 

R 

203706 

R 

LAC 

%FAC3 ■ 

02055 

R 

504626 

R 

AND 

(400000) 

02056 

R 

043705 

R 

DAC 

%FAC2~ 

02057 

R 

740100 

A 

SMA 


02060 

R 

622024 

R 

JHP« 

■ ^^FLOTi 

02061 

R 

203706 

R 

LAC 

%FAC3- 

02062 

R 

740031 

A 

TCA 


02063 

R 

043706 

R 

OAC 

%FAC3 

02064 

R 

622024 

R 

JMP» 

' ^flot, 


■REG) 

normalized in FLT ACC) 


/hero sign 



PAGE 3S 


FPIST? SRC 


SUBT!TEE fpoint-non 




O 


O 


O 

O 

o 

o 

o 

o 

o 

o 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 


02065 R 203705 R 

02066 R 744100 A 

02067 R 622024 R 
02070 R 203706 R 
02071: R 740031 A 

02072 R 043706 R 

02073 R 203705 R 

02074 R 741401 A 

02075 R 344643 R 

02076 R 504660 R 

02077 R 344626 R 

02100 R 043705 R 

02101 R 622024 R 

02102 R 000000 A 

02103 R 203704 R 

02104 R 741200 A 

02105 R 602121 R 

02106 R 203707 R 

02107 R 744010 A 

02110 R 043707 R 

02111 R 044557 R 

02112 R 2037(36 R 

02113 R 740010 A 

02114 R 043706 R 

02115 R 203705 R 

02116 R 740010 A 

02117 R 043705 R 

02120 R 143704 R 

02121 R 200527 R 

02122 R 504575 R 

02123 R 544637 R 

02124 R 622102 R 

02125 R 544601 R 

02126 R 622102 R 

02127 R 200527 R 

02130 R 504610 R 

02131 R 544610 R 

02132 R 602135 R 

02133 R 203706 R 

02134 R 741000 A 
02136 R 203705 R 

02136 R 741100 A 

02137 R 440543 R 

02140 R 504660 R 

02141 R 622102 R 


02142 R 000000 A 

02143 R 203705 R 

02144 R 543706 R 


%FI,0T1 UAC %PAC2 
SMAJCU 
JMP» 7iF|,0T, 

%Fl,0T2 EAC 7.FAC3 
TO A 

DAC %FA0,3 
lac %FAC2 
CMAISZO 
TAD (!) 

AND (377777) 

TAD (400000) 

DAC %FAC;2' 

JHPtt %FL,QT, 

/FIX THE FLOAtiNO AC 
%FIXi 0 

LAC %FAC1 
SNA 

gMP %FIXB /NO REALIGNMENT NECESSARY 

LAC %rAC4 

RCL 

DAO %FAC4 
DAC GUARD 
LAC %FAC3 
RAL 

DAC %FAC3 
LAC %FAC2 
RAL 

DAG %FAC2 
DZM %FACi 

%FIXB lac opcode 

and (0P6T09) 

SAD (RDIV) 

JMPit %FIX, 

SAD (DIV) 

JMP« %FIXi 
LAC OPCODE 
AND (DP) 

SAD (DP) 

JMP ,*^3 
lac %PAC3 
SKP 

LAC %FACE 
SP A 

ISZ OVRFLX /OVERFLOW OCCURED 

and (377777) 
gMP^» /oFjxi 

/negate THE FLOATING ACCUMULATOR (%FNEG,) 

/CALLING SEQUENCE!' 

/ UMS %FNEG /SUBR call (CHANGE SIGN OF NORMALIZED PLT ACC,) 

/ NEXT INSTRUCTION /RETURN WITH SIGN OF FLT CC CHARGED, 

7oFNEG, 0 ■’ /ENTRY’^EXIT 

LAC 74FAC2 /SIGN WORD OF FLOATING ACCUMULATOR 
SAD %FAC3'” 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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FP15T? SRC 

SUBTITLE 

PPQ{NTr.NQN 


023145 

R 

740200 A 

S2A 


/IF ABSOLUTE HERO DO NOT NEGATE 

02146 

R 

244626 R 

XOR 

(400000 

/CHANGE SIGN 

02147 

R 

043705 R 

OAC 

7»FAC2'' 

/RESTORE 

02150 

R 

622142 R 


XpFNEG, 

/EXIT 


/ 

f- 

/ 


/SHORT GET argument ROUTINE 

(%FG, ) 


/calling 

SEQUENCE! 




/ 

(PC-^1? 

0 

/ADDRESS OF ARG 

IN USERS PROG 

/ 

(PC) 

JMS 

%FG, /SUBR CALL 


/ 

(PC*1? 

0 

/(STORE ADDRESS 

HERE) 

/ 

/ 

(PC+2 j 

NEXT 

INSTRUCTION /return 

HERE 


/SUBROUTIME %FG, goes back two UEVEIS (three if INDIRECT) 
/TO get the AUURESS of an ARGUMENT AND STORES IT AT PC+1 
/OF THE CAU.ING PROGRAM, 

/ 

/ 


02151 

R 

000000 

A 

%FG, 

0 


02152 

R 

202151 

R 


LAC 

7oFG| 

02153 

R 

504701 

R 


AND 

(7777/ 

02154 

R 

042151 

R 


DAC 

j^FG, 

02155 

R 

7777/6 

A 


LAW 

^2 

02156 

R 

342151 

R 


TAD 


02157 

R 

043720 

R 


DAC 






/second 

l^vel 


02160 

R 

223720 

R 


LAC^t 

/oJ5 

02161 

R 

463720 

R 


IS2<* 

%J5 

02162 

R 

043720 

R 


DAC 

%J5 

02163 

R 

223720 

R 


LAC^^ 

%J5 

02164 

R 

043720 

R 


DAC 

%J5 

02165 

R 

741100 

A 


SPA 


02166 

R 

223720 

R 


LAC<^ 

%J5 

02167 

R 

062151 

R 


DACit 

%FG, 

02170 

R 

442151 

R 

xfgex, 

ISZ 

7»FG, 

02171 

R 

622151 

R 

/ 

JMP'** 

^^fg, 


/- T — - 

/ 


/ENTRY«F,XIT 
/MASK OF possible 
/SIGN BIT SET FROM 
/LINK during JMS 
/GET CALUERS EXIT 

/ac=(pcb1) from caluing program 

/SAVE FIRST level ! 

/GET (ARG ADDR) ADDR 

/SUMP caluERs Exit 

/SAVE ARG ADDR 
/get ARG ADDR 
/end of 2ND levee 

/IF 0 BIT IS ON ADDRESS IS INDIRECT 
/ACCESS AGAIN 

/STORE ARG ADDR IN CALLING POINT 
/BUMP EXIT 

/exit 


/normaeiee Floating accumulator (%fnoRi) 

/CALLING SEQUENCE! 

/ JMS '/.FNOR /SUBR CALL 

/ NEXT INSTRUCTION /SUBR RETURN 

/ 

/ 


/the floating point ACCUMULATOR Is SHIFTED LEFT UNTIL BIT 1 IS 
/ON, BEFORE ANY SHIFTING THE NUMBER IS CHECKED FOR 
/hero, if it is hero the exponent is cleared AND THE 
/SIGN WORD SET OFF, 

/ 

021/2 R 000000 A 5IFNOR, 0 

021/3 R lA0Sn R OHM UNDFLN 



o 


o 


o 







O 
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FP15T? SRC 

SUBTITLE PPOINTr-NON 



o 

0217^ 

R 

200527 

R 

EAC OPCODE 


O 


02175 

R 

504656 

R 

AND {UN’PL) 



o 

02176 

R 

544604 

R 

SAD ^GAL) ■ 



02177 

R 

622172 

R 

0MP<» ?^FNOR» 


o 


02200 

R 

504657 

R 

AND (UN) 




02201 

R 

544657 

R 

SAD (UN) 


o 

o 

02202 

R 

622172 

R 

JMP^ %FNOR, 



02203 

R 

203705 

R 

LAC ' %FAC2 

/IF %Ff.cz = %FAC3 


o 

02204 

R 

504660 

R 

and (377777 

/STRIP SIGN IN CASE OP 

O 

02205 

R 

043705 

R 

DAC %FAC2 

/MINUS HERO, 


02206 

R 

543706 

R 

sad %FAC3 

/and ac=0 clear 


o 

02207 

R 

740200 

A 

SZA 

/the exponent and sign the exit 

O 

02210 

R 

602223 

R 

JMP %FNORA^l 

/WITH the ELT ACC IN ABSOLUTE 0 STATE, 


02211 

R 

103652 

R 

JMS OCHECK 



o 

02212 

R 

602217 

R 

JMP ,+5 


O 

02213 

R 

2037^7 

R 

LAC %FAC4 



02214 

R 

544565 

R 

SAD %FAC4A 



o 

02215 

R 

740200 

A 

SHA 


O 

02216 

R 

602223 

R 

JMP %FNORA?il 



02217 

R 

143704 

R 

b-m “ %FAci 

/CLEAR EXPQNT 



02220 

R 

143721 

R 

D2M %FSIGN 

/CEEAR SIGN 

' O 

o 

02221 

R 

1437X7 

R 

D^M %J4 



02222 

R 

622172 

R 

JMP^'^ %FNOR» 

/EXIT 


o 

02223 

R 

203705 

R 

LAC %FAC2'^ 


0 

02224 

R 

744010 

A 

%FNORA RCL 

/IF BIT 0 IS ON EIT 


02225 

R 

741100 

A 

SPA 

/IF NOT KEEP rotating 



02226 

R 

602267 

R 

JMP %FNOHB 


O 

o 




7 

/DECREMENT exponent* 




o 

02227 

R 

777777 

A 

y 

law ^1 


^ o 


02230 

R 

343704 

R 

tad %FAC1 




02231 

R 

043704 

R 

DAC /oFACl 



o 

02232 

R 

200527 

R 

uac opcode 


o 


02233 

R 

504610 

R 

AMD (DP) 




02234 

R 

544610 

R 

SAD (DP) 


o 

o 

02235 

R 

602243 

R 

JMP ,+6 



02236 

R 

203704 

R 

LAC %FAC1 




02237 

R 

544702 

R 

SAD (777377) 


o 

o 

02240 

R 

602245 

R 

JMP ,+5 



02241 

R 

544703 

R 

SAD (377) 

/RANDEX SAO 



02242 

R 

602245 

R 

JMP ,+3 


o 

o 

02243 

R 

203704 

R 

LAC %FAC1 



02244 

R 

544660 

R 

SAD ” (377777) 




02245 

R 

440541 

R 

ISH UNDFLN 

/EXPONENT underflow 

o 

o 





/ 

/ROTATE 

/ 

CLL 



o 

02246 

R 

744000 

A 


o 


02247 

R 

103652 

R 

JMS OCHECK 



0 

02250 

R 

602260 

R 

JMP %FN, 


o 

02251 

R 

204565 

R 

LAO %FAC4A 



' 02252 

R 

7440X0 

A 

RCL 




o o 


o 


o 



o 


o 
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FP15T2 

: SRC 

subtitle 

FPaKNT-^NON 

o 

02263 

R 

044665 

R 

DAC 

%FAC4A 


02264 

R 

203707 

R 

LAC 

%FAC4 


02266 

R 

740010 

A 

RAL 


o 

02266 

R 

043707 

R 

DAC 

%FAC4 


02267 

R 

04465/ 

R 

DAC 

GUARD 


02260 

R 

203706 

R 

LAC 

%p_;ac3 

o 

0226?, 

R 

740010 

A 

RAL 



02262 

R 

043/06 

R 

OAC 

%FAC3 


02263 

R 

203706 

R 

LAC 

%FAC2 

0 

02264 

R 

740010 

A 

RAL 



02265 

R 

043706 

R 

DAC 

%FAC2 


02266 

R 

602224 

R 

UMP 

%fnora 

o 

02267 

R 

200636 

R 

5$FNOR8 LAC 

ovRFLi 


022/0 

R 

741200 

A 

SNA 



0227^, 

R 

622172 

R 

JMP^ 

%FN0R, 

0 

022/2 

R 

200541 

R 

LAC 

BNBPLN 


02273 

R 

741200 

A 

SNA 



02274 

R 

6221/2 

R 

UMP^ 

^ %FN0R, 

o 

02275 

R 

140636 

R 

D2M 

QVRFLl 


02276 

R 

140641 

R 

DZM 

UNDFLN 


02277 

R 

622172 

R 

JMP^ 

?SFNDR, 


o 


o 


o 


o 


o 


o 


o 


o 


/USED AS FMQ 


/ 

/— — — 

/ 

/HOUD THE FLOATING ACCUMULATOR (%FH,) 
/CALLING SEQUENCE!' 


JMS %FH 

next instruction 


/CALL 


(VALUE IN 
/RETURN 


FLOATING ACC) 

(VALOE IN floating ACC AND HELD AC 



02300 

R 

000000 

A 

%FH, 

0 




02301 

R 

203704 

R 

LAC 

/cFACl 

/exponent 

o 

02302 

R 

043710 

R 


DAC 

% H A C 1 



02303 

R 

203706 

R 


LAC 

%rAC2 

/HiGHsORDER MANTISSA 


02304 

R 

0437U 

R 


DAC 

%HAC2 


o 

02306 

R 

203706 

R 


LAC 

%FAC3 

/LOW-ORQER mantissa 


02306 

R 

043712 

R 


DAC 

%HAC3 



02307 

R 

622300 

R 


UMP 

* %fh » 

/EXIT 

o 





/ 












o 





/ROUND 

AND 

INSERT sign 

(%FIR, ) 


/CALLING SEQUpCEI 


JMS 


NEXT 


/.FIR, 

400/L 

777000/777776 

INSTRUCTION 


/SUBR 
/ROUNDOFF BIT 
/EXTRACT MASK 

/SUBR Return 


/ 

/ 

/ 

/ 

/ 

/ 

/the RESULT IN the FLOATING ACCUMULATION IS ROUNDED ACCORDING 
/TO THE MODE (SINp.E/OOUBLE PRECISION) 

/ 


G 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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FPl'?J'4 spq 


subtitle ppoint-non 


02310 

R 

000000 

A 

/ 

7aFlR, 

0 



02311 

R 

140540 

R 


DZH 

OVRFLH 


02312 

R 

2005327 

R 


LAC 

OPCODE 


02313 

R 

504670 

R 


AMD 

(MR!FL) 


02314 

R 

544604 

R 


SAD 

(CAL)' 


02315 

R 

602331 

R 


JMP 



02316 

R 

504620 

R 


AND 

(UR) 


02317 

R 

544620 

R 


SAD 

(UR) 


02320 

R 

602331 

R 


JMP 

%FIR£X 






/■^l TO 

FHA IF 7oFAC4 IS 

NEGATIVE 

02321 

R 

204557 

R 


LAC 

GUARD# 


02322 

R 

745102 

A 


SPA! 

STL 


02323 

R 

602334 

R 


JMP 

%F I.R| A 

/guard bit set for dp 

02324 

R 

744000 

A 


CLL 



02325 

R 

200527 

R 


LAC 

OPCODE 


02326 

R 

504610 

R 


AND 

(DP) 


02327 

R 

544604 

R 


SAD 

(CAL) 


02330 

R 

602334 

R 


JMP 

%FIR, A 


02331 

R 

442310 

R 

%HREX 

ISZ 

%FIR, 


02332 

R 

442310 

R 


ISZ 

^FlRi 


02333 

R 

622'510 

R 


JMP* 

%FIR, 


02334 

R 

750010 

A 

%FIR«A 

GLK 



02335 

R 

362310 

R 


TAD* 

%FIR, 

/get roundoff bit, 

02336 

R 

442310 

R 


ISH 

• /“FIR, 

/POINT TO MASKi 

02337 

R 

343706 

R 


TAD 

%FAC3 

/ADD TO lOW^OROER RESULT TO PERFORM ROUNDOFF 

02340 

R 

522310 

R 


AND* 

/“HRi 

/MASK OF insignificant PORTION, 

02341 

R 

043706 

R 


DAC 

7SFAC3 

/keep LQWsORDER RESUUt, 

02342 

R 

750010 

A 


GLK 


/get overflow sit, 

02343 

R 

343705 

R 


TAD 

7oPAC2 

/add to HIGH'^DRDER result, 

02344 

R 

043705 

R 


DAC 

%FAC2' 


02345 

R 

740100 

A 


SMA 


/OVER PLOW INTO SIGN BIT? 

02346 

R 

602356 

R 


JMP 

%FSRA 

/NO 





f 

/ROUND^t 

OFF CAUSED NUMBER TO OVERFLOW INTO SIGN BiTi 





/ROTATE 

/ 

%FAC2,F.FAC3 Ri.GHT ONE BIT AND INCREMENT EXPONENT, 

02347 

R 

744020 

A 

RCR 



02350 

R 

043705 

R 


DAC 

%FAC2 


02351 

R 

203706 

R 


LAC 

%FAC3 


02352 

R 

740020 

A 


RAR 



02353 

R 

522310 

R 


AND* 

%FIR, 

/TRUNCATE 

02354 

R 

043706 

R 


DAC 

7.FAC3 


02355 

R 

103664 

R 


JMS 

INCEXP 


02356 

R 

442310 

R 

%FIRA 

ISZ 

/oFIR, 

/POINT TO RETURN ADDRESS 

02357 

R 

622310 

R 


JMP* 

%PIR, 

/EXIT 






iEJECT 




PAGE A0 FPISTZ SRC SUBTITLE FPOINT-NON 

/SIGN CONTROL (STRIP S(GNS) (%FS,) 

/CALLING SEQUENCE! 

/ JMS %FS, /call 

/ NEXT INSTRUCTION /RETURN 

/ 

/the sign bit of THE FLOATING ACC IS STORED IN BIT 0 OF 
/storage word THE SIGN TBIT OF THE HELD ACC IS 

/EXCLUSIVE OR'ED WITH IT AND THAT VALUE IS STORED IN BIT 0 OF 
/%FSIGN, RETURN IS MADE WITH BIT 0 OF BqTH THE 
/held ACC AND THE FLOATING ACC SET TO EERO, 

/ 

/ 


02360 

R 

000000 

A 

%FS, 

0 



02361 

R 

203705 

R 


loAC 

:/oFAC2 

/SIGN WORD OF FLOATING ACCUMULATOR 

02362 

R 

504626 

R 


AND 

(400000 

/kgep only the sign 

02363 

R 

043717 

R 


DAC 

% J4 

/STORE IT 

02364 

R 

203705 

R 


lAC 

%FAC2 

/get SIGN 

02365 

R 

504660 

R 


AND 

(377777 

/WORD AGAIN AND KEEP 

02366 

R 

043705 

R 


DAC 

%FAC2 

/only the absolute value 

02367 

R 

203711 

R 


LAC 

%HAC2 

/SIGN WORD OF HELD ACCUMULATOR 

02370 

R 

243717 

R 


XOR 

% J 4 

/LIKE SIGNS=0, UNLIKE SIGN=1 

02371 

R 

504626 

R 


and 

(400000 

/keep only t"he sign and 

02372 

R 

043721 

R 


DAC 

%FSIGN 

/SAVE it 

02373 

R 

203711 

R 


LAC 

%HAC2 

/get the sign word, 

02374 

R 

504660 

R 


AND 

(377777 

/OF THE HEALD ACC AND, 

02375 

R 

043711 

R 


DAC 

%HAC2 

/strip off the SIGN, 

02376 

R 

622360 

R 



%FS, 

/exit 





/check 

THE FLOATING AC»S 

; TO EQUAL EERO 

02377 

R 

000000 

A 

CAC0 

0 



02400 

R 

203705 

R 


LAC 

7oFAC2 


02401 

R 

543706 

R 


SAD 

%FAC3 


02402 

R 

740200 

A 


SEA 



02403 

R 

741000 

A 


SKP 



02404 

R 

602414 

R 


0MP 

CAC0EX+2 


02405 

R 

203711 

R 


LAC 

%HAC2 


02406 

R 

543712 

R 


SAD 

%HAC3 


02407 

R 

740200 

A 


S2A 



02410 

R 

602412 

R 


JMP 

CAC0EX 


02411 

R 

602414 

R 


JMP 

,*3 


02412 

R 

442377 

R 

CAC0EX 

IS2 

CAC0 


02413 

R 

622377 

R 


vlMP<» 

CAC0 


02414 

R 

143704 

R 


D2M 

%FACi 


02415 

R 

143705 

R 


D2M 

%FAC2 


02416 

R 

143706 

R 


D?H 

%FAC3 


02417 

R 

143707 

R 


D7H 

%FAC4 


02420 

R 

14455/ 

R 


D^M 

GUARD 


02421 

R 

144565 

R 


OifM 

%FAC4A 


02422 

R 

6223/7 

R 


sjMP^ 

CACO 





/ 

/SWITCH THE FLOATING POINT ACCUMULATOR 
/AND THE HELD ACCUMULATOR, 

/calling SEQUENCE! 



SUBTITI.E FPQINTrNpN 


PAGE 43, 


SRQ 


/ JMS %SWICH /SUBR CAU 

/ NEXT INSTRUCTION /RETURN 

/ 

/the accumulator and link Are clobbered by 

/THIS SUBROUTINE, TEMPORARY STORAGE WORD %U5 IS ALSO 
/CLOBBERED, 

/ 


02423 

R 

000000 

A 

%SWICH 

0 



02424 

R 

203704 

R 


LAC 

%f^CX 

/EXPONENTS. 

02425 

R 

042360 

R 


QAC 

%FS, 

/USE temporarily free 

02426 

R 

203/10 

R 


LAC 

XoHACl 

/STORAGE FOR 

02427 

R 

043704 

R 


DAC 

%Fhci 


02430 

R 

202360 

R 


LAC 

%FS, 

/WORD manipulation 

02433, 

R 

043710 

R 


DAC 

%HAC1 






/ 



/HIGH-ORDER MANTISSAE 

02432 

R 

203705 

R 


LAC 

%FAC2 


02433 

R 

042360 

R 


DAC 

X»FS , 


02434 

R 

203711 

R 


l,AC 

%RaC2 


02435 

R 

043705 

R 


DAC 

%FAC2 


02436 

R 

202360 

R 


LAC 

%FS, 


02437 

R 

043711 

R 

/ 

DAC 

%HAC2 

/low-order MANTISSAE 

02440 

R 

203706 

R 


LAC 

“/pF'AC3 


02443, 

R 

042360 

R 


DAC 

%FS, 


02442 

R 

203712 

R 


LAC 

%HAC3 


02443 

R 

043706 

R 


DAC 

%FAC3 


02444 

R 

202360 

R 


LAC 

%FS, 


02445 

R 

043712 

R 


DAC 

%HAC3 


02446 

R 

622423 

R 


jMP<i 

%SWICH 



/ 



/ 

/GENERAt FLOATINO ADD 
/CALLING sequence; 






/ 

JHS 

%FA, 

/CALLtAUGENO 

INFLOAT ACC, ADD£N IN 

HELD ACC) 





/ 

32/42 

/MAXIMUM 

SHIFT (26 S.P,, 34 

D,P,) 





/ 

/ 

NEXT 

INSTRUCTI 

ON /SUBR 

return 


02447 

R 

000000 

A 

/ 

/ 

%FA, 

0 





02450 

R 

143713 

R 


OHM 

%HAC4 




02451 

R 

143707 

R 


DHM 

%FAC4 




02452 

R 

144571 

R 


OHM 

%FlQ?^'‘ 




02453 

R 

144557 

R 


OHM 

GUARD 




02454 

R 

144564 

R 


OHM 

SWITCH# 




02455 

R 

203705 

R 


LAC 

%FAC2 ' 




02456 

R 

504626 

R 


and 

(400000) 




02457 

R 

0445/0 

R 


DAC 

%J4%#' 

/SIGN OF FMB 



02460 

R 

2037li 

R 


LAC 

%HAC2 




02461 

R 

504626 

R 


AND 

(400000) 




02462 

R 

044566 

R 


DAC 

%F%# " ' 

/SIGN OF FMA 

' THE compliment OF ORIGINAL XFAC 

02463 

R 

102360 

R 


JMS 

%FS, 

/strip SIGNS 

AND GET ABSOLUTE 



IF FUNCTION IS NOT A 



u 


o 


Page a2 


FPXST2 SRg 


SUBTITLE PPOINT^NON 


o 





/IF FMB 

= 0 - 

EXIT - AND 

KEEP ORIGINAL FMA.,,> 






/IF FMA 

= 0 5 

EXIT AND FMB TO FMA'S 

o 

02464 

R 

203705 

R 


LAC 

%FAC2 

/FMB (HIGH) 

02465 

R 

543706 

R 


SAD 

%FAC3 

/FMB (LOW) 


02466 

R 

740200 

A 


SZA 



o 

02467 

R 

602500 

R 


0MP 

,+11 


02470 

R 

2037i0 

R 


UAC 

%HAC1 



02471 

R 

043704 

R 


DAC 

%FAci 


o 

02472 

R 

2037U 

R 


LAC 

%HAC2 

/FMA 

02473 

R 

043705 

R 


DAC 

%FAC2 

/TO FMA (HIGH) 


02474 

R 

203712 

R 


LAC 

%HAC3 

/FMA 

o 

02475 

R 

043706 

R 


DAC 

%FA03 

/TO NEW FMA (LOW) 

02476 

R 

444564 

R 


ISZ 

SWITCH 



02477 

R 

603017 

R 


JMP 

%FAEX 

/FMB = 0 

o 





/FMB NOT = 1 

d 


02500 

R 

203711 

R 


LAC 

%HAC2 

/FMA 


02501 

R 

543712 

R 


SAD 

%HAC3 


o 

02502 

R 

740200 

A 


S2A 



02503 

R 

741000 

A 


SKP 




02504 

R 

603017 

R 


JMP 

%FALX 

/PMA - 0 

0 

02505 

R 

203704 

R 

%FA,T 

LAC 

/-faci 

/Determine exponent 

02506 

R 

740001 

A 


CMA 


/(ADDEND+AUGEND?-!) 


02507 

R 

343710 

R 


TAD 

XoHACl 


o 

02510 

R 

043720 

R 


DAC 

%J5 


02511 

R 

741100 

A 


SPA 


/IF MINUS DO NOT SW 


02512 

R 

602516 

R 


JMP 

%fat,b 

/, . ,00 NOT SWITCH 

o 

02513 

R 

102423 

R 


JMS 

XoSWICH 

02514 

R 

444564 

R 


ISZ 

SWITCH 

/hardware FMA > FMB 


02515 

R 

602505 

R 


JMP 

%FA,T 

/ALSO 

o 

02516 

R 

203704 

R 

%FAT|B 

LAC 

%FAC1 


02517 

R 

243710 

R 


XQR 

%HACi 



02520 

R 

504626 

R 


AND 

(400000) 


o 

02521 

R 

741200 

A 


SNA 



02522 

R 

602541 

R 


JMP 

%FAA 

/exponent signs SIM 






/exponent signs UNLIKE 


o 

02523 

R 

203704 

R 


LAC 

%FAC1 


02524 

R 

741100 

A 


SPA 




02525 

R 

602532 

R 


JMP 

,+5 



02526 

R 

203710 

R 


LAC 

%HAC1 


o 

02527 

R 

740001 

A 


CMA 




02530 

R 

343704 

R 


TAD 

%FAC1 



02531 

R 

602534 

R 


JMP 



o 

02532 

R 

740001 

A 


CMA 



02533 

R 

343710 

R 


TAD 

%HAC1 



0253-^1 

R 

741X01 

A 


SPAICMA 


o 

02535 

R 

603000 

R 


JMP 

%FAE,X 

/OUT OF BOUNDS 

02536 

R 

344704 

R 


TAD 

(43) 



02537 

R 

741100 

A 


SPA 



o 

02540 

R 

603000 

R 


JMP 

%FAE,X 

/OUT OF bounds 

02541 

R 

443720 

R 

/oFAA 

ISZ 

%J5 



02542 

R 

741000 

A 


SKP 



o 

02543 

R 

602500 

R 


JMP 

%FAB,B 

/EPA=EPB 

02544 

R 

203720 

R 


LAC 

%J5 



> FMA) 


FMB BEFORE ALIGNMENT 


O 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



43 



SRC 

subtitle 

ptoint-non 


0254^5 

R 

362447 

R 


TAD« 

%FA, 


02546 

R 

751100 

A 


SPA! 

CUA 


02547 

R 

603000 

R 


JMP 

%FAE,X 

/exponents greater than 





/SHI%rT 

THE 

ADDEND RJCHT 

delta times, 

02550 

R 

203711 

R 

%FAB 

UAC 

%HAC2 


02551. 

R 

744020 

A 


RCR 



02552 

R 

043/11 

R 


DAC 



02553 

R 

203712 

R 


LAC 

/oHAC3 


02554 

R 

740020 

A 


RAR 



02555 

R 

043712 

R 


DAC 

%HAC3 


02556 

R 

203713 

R 


UAC 

%HAC4 


02557 

R 

740020 

A 


RAR 



02560 

R 

043713 

R 


DAC 

%HAC4 


02561 

R 

443720 

R 


isz 

%J5 

/FINISHED shifting? 

02562 

R 

602550 

R 


JHP 

%FAB 

/NO,, .cycle again 





/IF ROUNDING 

j 

IS requested - AND bit 0 of %HAC4 

02563 

R 

203713 

R 

t 

LAC 

%HAC4 


02564 

R 

744100 

A 


SNA! 

CUU 


02565 

R 

602600 

R 


JHP 

%FA8,8 

/DO NOT ROUND 

02566 

R 

200527 

R 


UAC 

opcode; 


02567 

R 

504620 

R 


AND 

CUR) 


02570 

R 

544620 

R 


SAD 

CUR) 


02571 

R 

602600 

R 


JHP 

%FAB,B 

/DP not round 

02572 

R 

203n2 

R 

%RL 

UAC 

%HAC3 ■ 


02573 

R 

344643 

R 


TAD 

(i) 


02574 

R 

043712 

R 


DAC 

%HACv5 


02575 

R 

750010 

A 


GUK 



02576 

R 

343711 

R 


TAD 

%HAC2 


02577 

R 

043711 

R 


DAC 

%HAC2 






/SWITCH 

onuy 

accumulators not exp to get ’XHAC2 

02600 

R 

203713 

R 

%FAB,8 

UAC 

%HAC4 


02601 

R 

044571 

R 


DAC 

%MQ 

/SAVE FOR UEBUGGING 

02602 

R 

143713 

R 


OHM 

%HAC4 


02603 

R 

143707 

R 


DHM 

%FAC4 


02604 

R 

204564 

R 


UAC 

switch 


02605 

R 

144564 

R 


DHM 

SWITCH 

/start A NEW SWITCH MON 

02606 

R 

741200 

A 


SNA 



02607 

R 

602624 

R 


JMP 

%FAB81 


02610 

R 

203ni 

R 


LAC 

%HAC2 


02611 

R 

543705 

R 


SAD 

/oFAC2 


02612 

R 

741000 

A 


SKP 



02613 

R 

602620 

R 


JMP 

,*5 


02614 

R 

203712 

R 


UAC 

%HAC3 


02615 

R 

744001 

A 


CMA| 

CUU 


02616 

R 

343706 

R 


TAD 

%FAC3 


02617 

R 

602644 

R 


JMP 

%FABB3 


02620 

R 

203711 

R 


UAC 

%HAC2 

/FMB 

02621 

R 

740001 

A 


CMA 



02622 

R 

343705 

R 


TAD 

%FAC2 

/fma 

02623 

R 

602637 

R 


JMP 

%FA8£32 





o o 

PAGE AA FP1PT2 SRC SUBTITLE FPOINT-NON 


o 

02624 

R 

203705 

R 

%FABB1 LAC %FAC2 


o 


02625 

R 

5437il 

R 

SAD %RAC2 



o 

02626 

R 

741000 

A 

SKP 


o 

02627 

R 

602634 

R 

JMP ,+5 



026^50 

R 

203706 

R 

UAC %FAC3 

/FMB 


o 

02631 

R 

744001 

A 

CMAICll 


O 

02632 

R 

343712 

R 

TAD %HAC3 

/fma 


0 6 3 3 

R 

602644 

R 

0MP %FABB3 



o 

02634 

R 

203705 

R 

L,AC %FAC2 

/FMB 

O 

02635 

R 

740001 

A 

CMA 



02636 

R 

3437il 

R 

tad %HAq2 

/fma 


o 





/SWITCH only F.FAC2, AND 

3 With corresponding /.hacs, and 3 

O 

02637 

R 

740100 

A 

%FABB2 SMA 



02640 

R 

60264/ 

R 

JMP %FAB,C-1 



o 

02641 

R 

204705 

R 

l^AC (%FAB,C) 


O 

02642 

R 

042423 

R 

dac %swich 

/FMa<FMB 


02643 

R 

602432 

R 

JMP %SWICR*7 



o 

02644 

R 

741400 

A 

%FABB3 SIl 


O 

02645 

R 

602647 

R 

JMP %FAB,C'!l 



02646 

R 

602641 

R 

JMP %FABB2*2 



o 





/NOW SHIFT ADPFNP RIGHT 

ONE MDRE TIME 

O 

02647 

R 

444564 

R 

ISZ SWITCH 

/fmb<fma 


02650 

R 

203711 

R 

%FAB,C LAC %HAC2 




02651 

R 

744020 

A 

RCR 


0 

o 

02652 

R 

043ni 

R 

DAC %HAC2 



02653 

R 

203712 

R 

LAC %HAC3 




02654 

R 

740020 

A 

RAR 


O 

o 

02655 

R 

043/12 

R 

DAC %HAC3 



02656 

R 

203713 

R 

LAC %HAC4 




02657 

R 

740020 

A 

RAR 


o 

o 

02660 

R 

043713 

R 

DAC %HAC4 







/THE EXPONENTS AKE NOW 

equal, if the signs are UNLIKE 


o 





/NEGATE THE ADDEND BEFORE ADDING, AFTER ADDING IF THE 
/SUM IS negative THE ADDEND MUST BE LARGER, THE SIGN OF 

o 






/THE SUM WOULD THEN BE 

THAT OF the ADOEnD 



02661 

R 

200527 

R 

LAC OPCODE 



o 

02662 

R 

5045/5 

R 

AND (QP6T09) 


o 

02663 

R 

544576 

R 

SAD (ADD) 




02664 

R 

602774 

R 

JMP %FANG1 



o 





/FSIGN = 400000 /LIKE SIGNS 

o 






/FSIGN = 000000 /UNLIKE 

signs 



02665 

R 

203721 

R 

LAC ■■ /.FSIGN 



o 

02666 

R 

740100 

A 

SMA 

/negate ADDEND 

o 

02667 

R 

602705 

R 

JMP %FAC 

/SUBTRACT unlike , , , REALLY ADD 



02670 

R 

203713 

R 

%PFAC lac %HAC4 

/SUBTRACT LIKE 


o 

02671 

R 

102013 

R 

JMS "/.ANEG, 


o 

026/2 

R 

043713 

R 

DAC %HAC4 




02673 

R 

203712 

R 

LAC %HAC3 



o 

02674 

R 

740401 

A 

CMAISNL 


o 

02675 

R 

602700 

R 

JMP ,+3 




02676 

R 

744000 

A 

CLl 



o 

02677 

R 

344643 

R 

TAD (X) 


o 

02700 

R 

043712 

R 

DAC %HAC3 

/negated LUWitORDER adden 



O O 


O 


O 




o o 

page FP3,t?T2 SRq SUBTITLE FPOINT-rNON 


o 

02701 

R 

203711 

R 


LAC %HAC2 

/HIGH-OROER ADDEND 

o 


02702 

R 

741401 

A 


CMA JS7.L 

/IF OVER FLOW FROM 



02703 

R 

344643 

R 


TAD (1 

/negating low-border addend 

o 

o 

02704 

R 

043711 

R 


DAC 7«HAC2 

/end of negation 






/WHEN COHPUTING THE EXPONENT THE ONE'S COMPLEMENT WAS USED 







/lOSTEAD OF THE TWO'S COMPLEMENT, THIS WAS TO FORCE A RIGHT SHIFT 

o 

o 





/OF THE 

AUGEND SO THAT 

overflow would not interfere with sum 






/SIGN DETERMINATION 



o 





/ 

/ 



o 


02705 

R 

203705 

R 

%FAC 

EAC %FAC2 

/HIGH-^ORDER AUGEND 


o 

02706 

R 

744020 

A 


RCR 

/i«bit right 

o 

02707 

R 

043705 

R 


DAC %FAC2 



02710 

R 

203706 

R 


LAC %FAC3 



o 

02711 

R 

740020 

A 


RAR 

/LOW-bORDER augend 

o 

02712 

R 

043706 

R 


DAC %FAC3 



02713 

R 

203707 

R 


LAC 7oFAC4 



o 

02714 

R 

740020 

A 


RAR 


o 

02715 

R 

744000 

A 

/ 

/begin 

/ 

CLL 

the addition, 

/rightmost sit of 5SFAC4 DROPS OFF, (WHO CARES BAUY) 

o 

o 


02716 

R 

343713 

R 


TAD %HAC4 



o 

02717 

R 

043707 

R 


DAC %FAC4 


o 

02720 

R 

750010 

A 


GLK 



02721 

R 

343706 

R 


tad %FAC3 



o 

02722 

R 

343712 

R 


TAD %HAC3 


0 

02723 

R 

043706 

R 


DAC %FAC3 

/LOWsORQER SUM 


02724 

R 

750010 

A 


glk 

/IF OVERFLOW FROM ADDITION 


o 

02725 

R 

343705 

R 


TAD /«FAC2 


o 

02726 

R 

343711 

R 


tad %Rac2 



02727 

R 

043705 

R 

/ 

/IF SUM 

DAC %FAC2 

/HIGH^ORDER SUM 


o 





IS negative, complement the answer and the sign of the sum 

o 


02730 

R 

203705 

R 


LAC %FAC2 



o 

02731 

R 

740100 

A 


SMA 


o 

02732 

R 

602750 

R 


JMP %FAD 



02733 

R 

203707 

R 


LAC %FAC4 




02734 

R 

102013 

R 


JMS %ANEG, 


o 

o 

02735 

R 

043707 

R 


DAC %FAC4 



02736 

R 

203706 

R 


LAC %FAC3 




02737 

R 

740401 

A 


CMAISNL 


o 

o 

02740 

R 

602743 

R 


JMP ,+3 



02741 

R 

744000 

A 


CLL 




02742 

R 

344643 

R 


TAD Cl) 


o 

o 

02743 

R 

043706 

R 


DAC 7.FAC3 



02744 

R 

203705 

R 


LAC 7oFAC2 




02745 

R 

74140X 

A 


CMAIS2L 


o 

o 

02746 

R 

344643 

R 


TAD Cl 



02747 

R 

043705 

R 

i 

DAC XFAC2 



0 





/A forced shift of %fab 

AND %FAC WAS PREVIOUSLY INITIATED 

o 






/SHIFT 

back if bit 1 UF 

%FAC2 IS = 0 



o o 


o 


o 
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/IF BIU=1 INCREMENT EXPONENT BECAUSE OF THAT FORCEO SHIFT 

/and set guard bit for rounding 


027SJ0 

R 

203705 

R 

%FAD 

EAC 

7oFaC2' 


027t?l 

R 

504706 

R 


and 

(AOUiS) 


027S)2 

R 

743,200 

A 


SNA 



027b3 

R 

602762 

R 


JMP 

7«F AD, D 


02754 

R 

544707 

R 


sad 

(JMS) 


02755 

R 

602762 

R 


JMP 

%Mp,d 


02756 

R 

203707 

R 


LAC 

%FAC4 


02757 

R 

044557 

R 


DAD 

GUARD 


02760 

R 

3.03664 

R 


JMS 

INCEXP 


02763, 

R 

603017 

R 


JMP 

%FAEX 

/determine answer sign 





/SHIFT 

back 

HERE 


02762 

R 

203707 

R 

%FAD,D 

LAC 

%FA04 


02763 

R 

744010 

A 


RCl 



02764 

R 

043707 

R 


DAC 

%FAC4 


02765 

R 

203706 

R 


lAC 

%FAC3 

/shift back 

02766 

R 

740010 

A 


RAL 



02767 

R 

043706 

R 


DAC 

%FAC3 


02770 

R 

203705 

R 


EAC 

%FAC2 


02773, 

R 

740010 

A 


RAC 



02772 

R 

043/05 

R 


DAC 

%FAC2 


02773 

R 

603017 

R 


JMP 

%FAEX 






/IF FSIGN = 

000000 

/LIKE SIGNS 





/IF FSjCN = 

400000 

/unlike signs 

02774 

R 

203721 

R 

7.FANG1 

CAC 

%FSl(iN 


02775 

R 

741100 

A 


SPA 



02776 

R 

602670 

R 


JMP 

%PFAC 

/add UNLIKE - REALLY SUBTRACT 

02777 

R 

602705 

R 


JMP 

%FAC 

/add like 





/exponent di 

fference to 

GREAT TO complete OPERATION 





/EXPONENT REAVULATION 


03000 

R 

203704 

R 

%FAE,X 

CAC 

%FAC1 


03003- 

R 

243710 

R 


XOR 

%HAC1 


03002 

R 

504626 

R 


AND 

(400000) 


03003 

R 

741200 

A 


SNA 



03004 

R 

603017 

R 


JMP 

%FAEX 

/EXP SIGNS EQUAL 

03005 

R 

203704 

R 


LAC 

%FAC1 


03006 

R 

740100 

A 


SMA 



03007 

R 

603012 

R 


JMP 

%FA£XX 


03010 

R 

X021E3 

R 

%FE 

JMS 

%SWICH 

/SWITCH TO get %FaC LARGER (MORE 

030U 

R 

444564 

R 


IS2 

SWITCH 



/FAC registers MORE + 

/IF FAC2 AND FAC3 = 0, HAC REGISTERS MORE * 

/SO therefore'switch registers and keep sign 


03012 

R 

203705 

R 

%FAEXX 

LAC 

%FAC2 

03013 

R 

543706 

R 


SAD 

%FAC3 

03014 

R 

740200 

A 


S2A 


03015 

R 

741000 

A 


SKP 


03016 

R 

603010 

R 


JMP 

%FE 

03017 

R 

200^327 

R 

%FAEX 

LAC 

OPCODE 

03020 

R 

504575 

R 


AND 

(0P6T09) 

03021 

R 

544576 

R 


SAD 

(ADD) ' 

03022 

R 

603042 

R 


JMP 

ADSIGN 



FPa/JT^i SRC 


subtitle FPOINT-NCN 


03023 

R 

203/21 

R 



%FSIGN 


03024 

R 

741200 

A 


SNA 


/SKP TO SUB like signs 

03025 

R 

603035 

R 


vJMP 

GOTOGO 

/SUB unlike signs 





/%FSJGN 

? 4000P TQ SUBTRACT LIKE SIGNS 

03026 

R 

2045/0 

R 


LAC 

%J4% 


03027 

R 

043721 

R 


DAC 

%FSIGN 

/BECOMES "A" SIGN 

03030 

R 

204564 

R 


LAC 

SWITCH 


03031 

R 

504643 

R 


AND 



03032 

R 

741200 

A 


SNA 







/COMP ASIGN 



03033 

R 

102017 

R 


JMS 

%SNEG, 


03034 

R 

603056 

R 


JMP 

%FA£XT 


03035 

R 

204570 

R 

GOTOGO 

LAC 

%J4% 


03036 

R 

750100 

A 


SMA! 

CLA 


03037 

R 

204626 

R 


LAC 

(400000) 


03040 

R 

043/21 

R 


DAC 

%FSj[GN 

/BECOMES "A" SIGN 

03041 

R 

603056 

R 


JMP 

%FAEXT 


03042 

R 

203721 

R 

ADSIGN 

LAC 

7pFSIGN 


03043 

R 

741200 

A 


SNA 



03044 

R 

603054 

R 


JMP 

GOGOGO 

/ADO like signs 





/ADD UNLIKE 

SIGNS %FS|GN 

= 400000 

03045 

R 

204566 

R 


LAC 

%f% 

/SIGN OF FMA 

03046 

R 

043721 

R 


DAC 

%FSIGN 

/becomes "A" SIGN 

03047 

R 

204564 

R 


LAC 

SWITCH 


03050 

R 

504643 

R 


AND 

(1) 


03051 

R 

741200 

A 


SNA 



03052 

R 

10201/ 

R 


JMS 

%SNEG, 


03053 

R 

603056 

R 


JMP 

%FAEXT 


03054 

R 

204570 

R 

GOGOGO 

LAC 

%J4% 


03055 

R 

043721 

R 


DAC 

%FSIGN 


03056 

R 

102172 

R 

%fae:xt 

JMS 

%FNOR« 


03057 

R 

442447 

R 


is2 

%FA, 

/BUMP FOR EXIT 

03060 

R 

622447 

R 


JMP^J 


/EXIT 


/WHEN SWITCH * 0» hardware FHB > FHA THEREFORE COMP ASIGN 
.EJECT 


O 


O 



o 


u 


o 
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FPX5T2 SRC 

SUBTITI,E: [POINT 

«NpN 






/ 









/ 




o 





/general floating multiply aFM.I non-eae 





/calling SEQUENCEI 








/ 

JMS %FM 

♦ 

/call 






/ 

NEXT INSTRUCTION /RETURN 

o 





/ 

/ 

/the 




o 





arguments are 

IN 

THE floating (%FAC153) AND 





/HELD 

ACCUMUCATORS 

<XHAC1«3), the floating accumulator is 






/THE 

MUlTIPLICANU ano 

THE held accumulator THE MULTIPLIER, 

o 





/IF EITHER ARE 2ER0 

i 

RETURN IS MADE WITH 0 IN THE FLOATING 





/ACC, 

THE EXPONENT 

IS 

computed first, 

o 

0306a, 

R 

000000 

A 

%FM, 

0 


/ENTRY EXIT 

03062 

R 

744000 

A 

cue 




03063 

R 

143/07 

R 


D2M %FAC4 



o 

03064 

R 

14455/ 

R 


P2M GUARD 



03065 

R 

203704 

R 


LAC - %FAC1 

/EXPONENT OF multiplicand 


03066 

R 

343710 

R 


TAP %HAC1 

/add exponent OF multipliei 

o 

03067 

R 

043/04 

R 


DAC %FACl 

/save exponent of product, 

03070 

R 

200^27 

R 


UAC OPCODE 



03071, 

R 

504610 

R 


AND (DP) 




03072 

R 

544610 

R 


SAD (PP) 



o 

03073 

R 

603112 

R 


vJMP %FM2 




03074 

R 

203/04 

R 


LAC %FAC1 




03075 

R 

504655 

R 


AND (7/7) 



o 

03076 

R 

746010 

A 


CLLlRtL 




030/7 

R 

742010 

A 


RTU 




03100 

R 

742010 

A 


RTL 



o 

03101 

R 

742010 

A 


RTU 




03102 

R 

740010 

A 


RAU 




03103 

R 

040530 

R 


DAC TEMP 



o 

03104 

R 

200513 

R 


LAC %XFAC1 




03105 

R 

240516 

R 


XOR %XHAC1 




03106 

R 

5045/7 

R 


AND (400) 



o 

03107 

R 

740200 

A 


S2A 




03110 

R 

603132 

R 


JMP %FM1 


/unlike signs 


03111 

R 

603120 

R 


JMP %FM2A 



o 

03112 

R 

203/04 

R 

%FM2 

UAC %FAC1 



03113 

R 

040530 

R 


DAC TEMP 




03114 

R 

200513 

R 


UAC %XFAC1 



o 

03115 

R 

240516 

R 


XOR %XHACi 




03116 

R 

741100 

A 


SPA 




03117 

R 

603132 

R 


JMP %FM1 


/unlike signs 

o 

03120 

R 

203710 

R 

%FM2A 

UAC %HAC1 



03121 

R 

741100 

A 


SPA 




03122 

R 

603127 

R 


JMP %FM3 


/LIKE signs were negative 

o 

03123 

R 

200530 

R 


UAC TEMP 



03124 

R 

741100 

A 


SPA 




03125 

R 

440536 

R 


ISH OVRFUl 



o 

03126 

R 

603132 

R 


JMP ,+4 




03127 

R 

200530 

R 

%FM3 

UAC TEMP 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 



o 


o 


o o 
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o 

03130 

R 

740100 

A 



SMA 



o 


03131 

R 

440537 

R 



ISI UNDFLl 




o 





/(+EPAJ+(+EPA) stayed 

positive 


O 

03132 

R 

102360 

R 

%FM1 


JMS %FS, 


/get sign and absolutize, 


03133 

R 

102377 

R 



JMS CAC0 




03134 

R 

623061 

R 



DHP'^ %FMf 




o 





/ 




O 






/check 

» 

MULTIP.I.CAND FOR 

HEROAND 

save in work area, 


o 

03135 

R 

203706 

R 

( 


LAC %FAC3 


/LOW^ORDER multiplicand 

O 


03136 

R 

143706 

R 



D7M 7pFAC3 


/clear for shifting in product 


o 

03137 

R 

043/16 

R 



DAC %03 


/SAVE IT, 

O 

03140 

R 

203705 

R 



LAC %FAC2 


/high-order multiplicand 


03141 

R 

143705 

R 



DHM %FAC2 


/CLEAR product AREA FqR SHIFTING, 


o 

03142 

R 

043715 

R 



DAC 7oJ2 


/NOT 0,,, SAVE IT 


03143 

R 

203715 

R 



LAC %U2 


O 


03144 

R 

543716 

R 



SAD %J3 





03145 

R 

740200 

A 



SHA 



O 

o 

03146 

R 

741000 

A 



SKP 




03147 

R 

603225 

R 



DMP %FMC 





03150 

R 

143714 

R 



DZM ~ %U1 


/INITIAUIHE CARRY EXTENSIONS 

O 

o 

03151 

R 

143707 

R 



D2M %FAC4 


/ 


03152 

R 

1 4 4 5 6 7 

R 



02M 





03153 

R 

144565 

R 



DHM %FAC4A# 




o 




/ 





O 






/the 

multiplication is 

PERFORMED BY A SERIES OF ADDS 


o 





/THE 

multiplicand IS ADDED TQ 

itself and SHIFTED FOR EVERY 

O 





/i-bit 

OF THE MULTIpUERi THE 

ADDITION STOPS WHEN THE 






/2-WORO 

J 

multipliIH is 




o 

03154 

R 

203715 

R 

f 

%pma 


LAC %U2 


/shif three 

O 


03155 

R 

744020 

A 



RCR 


/WORD multiplicand 


o 

03156 

R 

043715 

R 



DAC %J2 


/ONE 

O 

03157 

R 

203716 

R 



LAC %03 


/BIT 


03160 

R 

740020 

A 



RAR 


/RIGHT 


o 

03161 

R 

043716 

R 



DAC %U3 



O 

03162 

R 

203714 

R 



LAC %J1 


/3R0 WORD EXTENSION OF MULTIPLICAND 


03163 

R 

740020 

A 



RAR 





03164 

R 

043714 

R 



DAC *J 1 



O 

o 

03165 

R 

204567 




LAC %J1A 




03166 

R 

740020 

A 



RAR 





03167 

R 

044567 

R 



DAC %U1A 

/4TH word extension 


o 





/ 





O 


03170 

R 

203712 

R 



LAC %HAC3 


/shift two word MULTIPLIER 



03171 

R 

744010 

A 



RCL 


/ONE SIT LEFT 

O 

o 

03172 

R 

043712 

R 



DAC %HAC3 


/IF HIGh^ORDER WORD IS ZERO, 


03173 

R 

203711 

R 



lac %HAC2 


/THE multiplier MIGHT BE 2ER0 


o 

03174 

R 

740010 

A 



RAL 


/ 

O 

03175 

R 

043711 

R 



DAC %|-IAC2 


/ 


03176 

R 

741200 

A 



SNA 


/IF multiplier 0? 



03177 

R 

603222 

R 



JMP %FMB 


/maybe 

O 

0 

03200 

R 

744100 

A 



SMAICLL 


/NO,,, IS multiplier bit 0 set ? 


03201 

R 

603154 

R 



vJMP %FMA 


/NO, ..Cycle again 



o o 


o 


o 



FPIOTZ SRC SUBTITLE FPQINT^NON 


/AOD THE three WORP (INCLUOING 
/'BUILDING product IN THE FLOAT 
/ 


EXTENSION) 
ING ACC, 


multiplicand to the 



03202 

R 

20456^ 

R 

UAC 

%FAC4A 



03203 

R 

344567 

R 

TAD 

%J1A 


o 

03204 

R 

0 4 4 5 6 

R 

DAC 

%FAC4A 



03205 

R 

750010 

A 

GIK 





03206 

R 

343707 

R 

tad 


%FAC4 

/YES,,, add multiplicand TO PRODUCT 

o 

03207 

R 

343714 

R 

TAD 


%J1 

/EXTENSION OF MULTIPLICAND (3RD WORD) 


032i0 

R 

043/07 

R 

DAC 


%FAC4 

/3RD WORD OF BUILDING PRODUCT 


03211 

R 

7500i0 

A 

GIK 



/ADU overflow from LINK TO 2ND WORD 

o 

03212 

R 

343/06 

R 

TAD 


%FAC3 

/2NU WORD OF BUILDING PRODUCT 


03213 

R 

3437i6 

R 

TAD 


%J3 



03214 

R 

043706 

R 

DAC 


%FAC3 


o 

03215 

R 

750010 

A 

GIK 



/add overflow from link TO FST WORD 


03216 

R 

343715 

R 

TAD 


%J2 

/OF product 


03217 

R 

343/05 

R 

TAD 


%FAC2 


o 

03220 

R 

043/05 

R 

DAC 


%FAC2 



03221 

R 

603154 

R 

JMP 


%FMA 

/CYCLE again 






/AT % FMB THE HIGHnORUER 

multiplier word is EERO, 

o 





/TEST LOWrORDER 

J 

WQROi IF 

IT IS 2ER0 ALSO/ EXIT, 


03222 

R 

203712 

R 

%Fm lAC 


%HAC3 

/IS multiplier 0 ? 

o 

03223 

R 

740200 

A 

S2A 



/yes 


03224 

R 

603154 

R 

JMP 

t 


%FMA 

/NO,,, Cycle again 

o 





/EXIT ROUTINE, 




03225 

R 

203/0/ 

R 

%FMC t,AC 

%FAC4 

/redundant in case UNNORMALI^EO 


03226 

R 

04455/ 

R 

DAC 

GUARD 


o 

03227 

R 

1021/2 

R 

JMS 


%FN0R, 

/normalize 


03230 

R 

623061 

R 

JMP^i 


/RETURN 


.EJECT 


o 


o 
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/GENERAL FLOATING DIVIUE (%FD,) NON-^EAE 
/calling SEQUENCE! 


/ 

/ JMS /.FD. 

/ n34/t^AA 

/ 400/1" 

/ NEXT INSTRUCTION 

/ 


/CALL 

/NO OF BITS TO GENERATE 
/least significant QUOTIENT BIT 
/RETURN HERE 


/UPON entry to the SUBROUTINE THE ARGUMENTS WERE STORED IN THE 
/FLOATING POINT KEGiStER (%FAc 1"3), AND THE HELD ACCUHULATOR (%HACln3), 
/RETURN IS MADE TO THE CALLING PROGRAM WITH THE QUOTIENT IN THE 
/FLOATING POINT REGISTER, THE DIVISOR IS IN THE FLOATION AC, 

/ 


03231 

R 

000000 

A 

%FD, 0 


/ENTRY«EXIT 

03232 

R 

223231 

R 

LAC« 

7oFD, 

/GET NO OF BITS (MUST BE NEGATIVE) 

03233 

R 

043714 

R 

DAC 

7»J1 

/SAVE NO OF BITS AS COUNTER, 

03234 

R 

443231 

R 

ISZ 

%FP, 


03235 

R 

102360 

R 

JMS 

%FS, 

/sign control 





/abnormai division if 

FMB = 0 

03236 

R 

203705 

R 

lac 

7oFAa2 

/FMB HIGH 

03237 

R 

543706 

R 

SAD 

%FAC3 

/FMB LOW 

03240 

R 

740200 

A 

SHA 



03241 

R 

741000 

A 

SKP 



03242 

R 

603563 

R 

JMP 

%FDC 

/abnormal DIVISION 

03243 

R 

200527 

R 

LAC 

OPCODE 


03244 

R 

504603 

R 

AND 

(FLJ 


03245 

R 

544604 

R 

SAD 

(CAL) 


03246 

R 

603405 

R 

JMP 

IDIVIPE 

/INTEGER division 





/abnormal division if 

FMB IS unnormalized 

03247 

R 

200527 

R 

LAC 

OPCODE 


03250 

R 

504t>75 

R 

AND 

(0P6T09) 


03251 

R 

544637 

R 

SAD 

(RPIV) 


03252 

R 

603257 

R 

JMP 

,♦& 

/EXCEPT FOR REVERSE DIVISION 

03253 

R 

200517 

R 

LAC 

%XHAC2 

/FMB HIGH 

03254 

R 

744010 

A 

RCL 



03255 

R 

740100 

A 

SMA 



03256 

R 

603275 

R 

DMP 

%FP0 

/calculate exponent before flagging abnormal DIVISION 





7NO ABNORMAL 

, DIVISION 

IF FMa = 0 

03257 

R 

203711 

R 

LAC 

%HAC2 


03260 

R 

543712 

R 

SAD 

%HAC3 


03261 

R 

740200 

A 

SHA 



03262 

R 

741000 

A 

SKP 



03263 

R 

603445 

R 

JMP 

IDEXIT 

/THE QUOTENT WILL = « 





/NEGATE THE 

DIVISOR IN 

THE FLOATING ACCUMULATOR, 

03264 

R 

203706 

R 

LAC 

%FAC3 

/LOWrORDER DIVISION 

03265 

R 

143706 

R 

D2M 

7oFAC3 

/clear for quotient 

03266 

R 

1020i3 

R 

JMS 

7oANEG, 

/negate and 

03267 

R 

043/16 

R 

DAC 

/o J 3 

/SAVE LOWr-ORDER DIVISION 

03270 

R 

203705 

R 

LAC 

/•FACE 

/HIGH«QRDER DIVISION 

03271 

R 

7<UAU1 

A 

CMA1S2L 

/SKIP IF LINK ON FROM NEGATING LQW-'ORDER 

03272 

R 

344643 

R 

TAD 

(1 

/DIVISOR 

03273 

R 

143705 

R 

D2M 

'XFAC2 

/CLEAR FOR QUOTIENT 

03274 

R 

043/15 

R 

DAC 

%J2 ■ 








/THE 

exponent of the dividend minus the exponent of the 





/DIVISOR EQUALS THE EXPONENT QUOTIENT, 

03275 

R 

203704 

R 

%F130 

lAC 

XoFACl 

/DIVISOR exponent 

03276 

R 

102013 

R 


JMS 

%ANEC» 


03277 

R 

343710 

R 


TAD 

%HAC1 

/DIVIDEND EXPONENT 

03300 

R 

043704 

R 


DAC 

%FAC1 

/EXPONENT before NORHALUATION 

03301 

R 

200527 

R 


lAC 

OPCODE 


03302 

R 

504610 

R 


ANU 

(PP) 


03303 

R 

544610 

R 


SAD 

(DP) 


03304 

R 

603323 

R 


JMP 

%FD2 

/DOUBLE PRECISION 

03305 

R 

203704 

R 


lAC 

%FAC1 


03306 

R 

504655 

R 


AND 

( 777? 


03307 

R 

744010 

A 


cu 

!RAL 


03310 

R 

742010 

A 


RTL, 



03311 

R 

742010 

A 


RTL 



03312: 

R 

742010 

A 


RTE 



03313 

R 

742010 

A 


RTE 



03314 

R 

040530 

R 


DAC 

TEMP 

/temp for quotent exponent 

03315 

R 

200613 

R 


EAC 

%XFAC1 

/epa 

03316 

R 

240516 

R 


XOR 

%XHACi 

/EPB 

03317 

R 

504577 

R 


AND 

(400) ■■ 


03320 

R 

741200 

A 


SNA 



03321 

R 

603343 

R 


gMP 

%FD1 

/exponents WERE! EIKE SIGNS 

03322 

R 

603331 

R 


JMP 

%FP4 


03323 

R 

203704 

R 

%F02 

LAC 

%FAC1 

/, , iUNEIKE SIGNS 

03324 

R 

040530 

R 


DAC 

TtMP 

/TEMP FOR quotent EXPONENT 

03325 

R 

200513 

R 


LAC 

%XFAC1 


03326 

R 

240516 

R 


XOR 

%XHAC1 


03327 

R 

740100 

A 


SMA 



03330 

R 

603343 

R 


JMP 

%FD1 






/EXPONENTS 1 

WERE OF UNLIKE SIGNS 

03331 

R 

203710 

R 

%F04 

LAC 

%HAC1 

/EPA 

03332 

R 

741100 

A 


SPA 



03333 

R 

603340 

R 


JMP 

%FD3 

/EPA WAS negative 

03334 

R 

200530 

R 


LAC 

TEMP 


03335 

R 

741100 

A 


SPA 



03336 

R 

440536 

R 


IS2 

OVRFLl 

/FROM SUBTRACTION OF EXPONENTS 

03337 

R 

603343 

R 


JMP 

, +4 


03340 

R 

200530 

R 

%FD3 

LAC 

TEMP 


03341 

R 

740100 

A 


SMA 



03342 

R 

440537 

R 


IS2 

UNDFLl 

/FROM SUBTRACTION OF EXPONENTS 





/ABNORMAL DIVISION NOW 

IF fms is unnormauzed 

03343 

R 

200527 

R 

%FP1 

LAC 

OPCODE 


03344 

R 

504575 

R 


AMD 

(0P6T09) 


03345 

R 

544637 

R 


SAD 

(ROjV? 


03346 

R 

603353 

R 


JMP 


/EXCEPT FOR REVERSE DIVISION 

03347 

R 

200517 

R 


LAC 

^»XHAC2 

/fmb high 

03350 

R 

744010 

A 


RCL 



03351 

R 

740100 

A 


SMA 



03352 

R 

603563 

R 


JMP 

%FDC 

/abnormal oivision 





/nqrmai^ihe; I 

MANTISSA BECAUSE HARDWARE NORMAUHES IT SONNY 





/the: 

PROGRAM will never 

EXPECT A FEOATING ABNORMAL DIVISION ON RD 

03353 

R 

203711 

R 


LAC 

%HAC2 

/fma high 



53 



: SRC 

SUBTITI,E FPOINT'’NqN 


03354 

R 

504661 

R 

AND (UAC) 


03355 

R 

740200 

A 

SZA 


03356 

R 

603527 

R 

0MP %FDA«2 


03357 

R 

203712 

R 

UAC %HAC3' 

/FMA LOW 

03360 

R 

744010 

A 

RCl 


03361 

R 

043712 

R 

DAC %HAC3 


03362 

R 

203711 

R 

UAC %HAC2 


03363 

R 

74001fa 

A 

RAU 


03364 

R 

043711 

R 

DAC %HAG2 


03365 

R 

777777 

A 

UAW «i 


03366 

R 

343704 

R 

tad %faci 

/QUOTENT 

03367 

R 

043704 

R 

DAC %FACi 

/EXPONENT 

03370 

R 

200^327 

R 

UAC opcode; 


03371 

R 

504610 

R 

AMD (PP) 


03372 

R 

544610 

R 

SAD (DP? 


03373 

R 

603401 

R 

JNP ,+6 


03374 

R 

203704 

R 

UAC %FAC1 


03375 

R 

544702 

R 

SAD (777:577) 


03376 

R 

603403 

R 

4MP ,+S 


03377 

R 

544703 

R 

SAD (377? 


03400 

R 

603403 

R 

JMP ,+3 


03401 

R 

203704 

R 

UAC %FAC1 


03402 

R 

544660 

R 

SAD (377777) 


03403 

R 

440541 

R 

ISH UNDFUN 


03404 

R 

603343 

R 

PMP 






/INTEGER DIVISION 






7IF DIVIDEND < DIVISOK) 

THE QUOTENT WILL = 0 





/(FMA<FM6) 






/AND IF FMB s 0, +1 TO 

integer division by hero 

03405 

R 

203711 

R 

IDIVIDE DAC %HAca 

/fma 

03406 

R 

543705 

R 

SAD %FAC2 

/fmb 

03407 

R 

741000 

A 

SKP 

/FMa 5 FMB HIGH CHECK LOW 

03410 

R 

603440 

R 

JMP I0V2 


03411 

R 

203712 

R 

UAC %HAC^ 

/fma 

03412 

R 

745100 

A 

SPAJCLU 


03413 

R 

603422 

R 

JMP ,+7 


03414 

R 

740031 

A 

TCA 


03415 

R 

343706 

R 

TAD %FAC3 

/FMB 

03416 

R 

741400 

A 

szu 


03417 

R 

741200 

A 

SNA 


03420 

R 

603454 

R 

JMP IPIFR 

/FMA > FMB 

03421 

R 

603445 

R 

JMP IDEXIT 

/fma < FMB 

03422 

R 

203706 

R 

UAC %FAC3 

/fmb low 

03423 

R 

745100 

A 

SPAICLD 


03424 

R 

603432 

R 

JMP 


03425 

R 

740031 

A 

TCA 


03426 

R 

343712 

R 

TAD XHAC3 

/fma low 

03427 

R 

740400 

A 

SNU 


03430 

R 

603445 

R 

JMP IDEXIT 

/FMA < FMB 

03431 

R 

603454 

R 

JMP IDIFR 

/fma > FMB 

03432 

R 

740031 

A 

TCA 


03433 

R 

343712 

R 

TAD %HAC3 

/fma low 

03434 

R 

741400 

A 

SZU 




o 








o 

o 








o 
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o 

03^:55 

R 

741200 

A 


SNA 


o 


03436 

R 

603445 

R 


JHP IDEXIT 

/FMA < FMB 


o 

03437 

R 

603454 

R 


JMP lOlFR 

/FMA > FMB 

o 

03440 

R 

740001 

A 

IDV2 

CM A 



03441 

R 

343705 

R 


TAD %FAC2 

/fmb high 


o 

03442 

R 

740100 

A 


sma 


o 

03443 

R 

603445 

R 


JMP IDEXJT 

/FMa < FMB 


03444 

R 

603454 

R 


JMP IDIFR 

/FMA > FMB 


o 

03445 

R 

143704 

R 

iDExrr 

D*/M %FAC1 

/QUOTENT W5UL = 0 

o 

03446 

R 

143/05 

R 

P2M %FAC2 



03447 

R 

143706 

R 


D0M %FAC3 



o 

03450 

R 

140536 

R 


DZM OVRFU 


o 

03451 

R 

140537 

R 


Di?M UNPFUi 



03452 

R 


R 


DZH UNDFEN 



o 

03453 

R 

603600 

R 


0MP %FPEXIT 


o 





/determine the difference twx the fma/fmb and do that many subtractions 


03454 

R 

143714 

R 

IDIFR 

D2M %Ji 

/DIVISION counter 


o 

03455 

R 

203711 

R 

IDVC 

CAC %HAC2 


o 

03456 

R 

504661 

R 

AND (CACI 



03457 

R 

740209 

A 


SZA 



o 

03460 

R 

603476 

R 


JMP IDVC3 


o 

03461 

R 


R 


UAC %HAC3 



03462 

R 

744010 

A 


RCL 

/fha low 



03463 

R 

043712 

R 


DAC %HAC3 


o 

o 

03464 

R 

203711 

R 


UAC %HAC2 



03465 

R 

740010 

A 


RAL 

/FMA HIGH 



03466 

R 

043711 

R 


DAC %HAC2 


o 

o 

03467 

R 

203706 

R 


UAC 5SFAC3 



03470 

R 

744010 

A 


RCL 

/fmb low 



03471 

R 

043706 

R 


DAC %FAC3 



o 

03472 

R 

203705 

R 


UAC %FAC2 


o 


03473 

R 

740010 

A 


RAU 

/fmb high 



03474 

R 

043705 

R 


DAC %FAC2 



o 

03475 

R 

603455 

R 


JMP lOVC 


o 


03476 

R 

443714 

R 

IDVC3 

ISH %J1 

/*i to division counter 



03477 

R 

203705 

R 


UAC %FAC2 



o 

03500 

R 

504661 

R 


AND (UAC) 


o 


03501 

R 

740200 

A 


SZA 




03502 

R 

603512 

R 


JMP IDVC4 



o 

03503 

R 

203706 

R 


UAC %FAC3 


o 


03504 

R 

744010 

A 


RCU 




03505 

R 

043706 

R 


DAC %FAC3 



o 

03506 

R 

203705 

R 


EAC XFAC2 


o 

03507 

R 

740010 

A 


RAU 




03510 

R 

043705 

R 


DAC %FAC2 



o 

03511 

R 

6034/6 

R 


UMP IDVC3 

/fmb 00 NOT = 1 

o 






/FMB00 

= 1 




03512 

R 

203714 

R 

IDVC4 

EAC XJl 



o 

03513 

R 

740031 

A 


fCA 


o 

03514 

R 

043714 

R 


DAC %J1 

/negeted difference twx FMA/FMB 







/THE DIFFERENCE TWX THE 

fma/fmb has seed determined 


o 





/prime; 

mantissas for subtractions 

o 


03515 

R 

744000 

A 


CEL 




o o 


o 


o 
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03516 

R 

203706 

R 

LAC 

%FAC3 




03517 

R 

740031 

A 

TCA 





03520 

R 

043716 

R 

DAC 

%J3 




03521 

R 

203705 

R 

LAC 

%FAC2 




03522 

R 

741401 

A 

CMA! 

SiiL 




03523 

R 

344643 

R 

TAD 

(i) 




03524 

R 

043715 

R 

OAC 

%J2 




03525 

R 

143706 

R 

D^M 

%FAC3 




03526 

R 

1437MS 

R 

07M 

%FAC2 








/THE DIVISION IS DONE BY 

A SERIES OF SUBTRACTIONS, THE DIVISOR WILL BE 






/SUBTRACTED 

FROM the dividend, 

IF THE RESULT IS MINUS THE DIVISOR IS 






/LARGER THAN 

1 THE DIVIDED 

and a 

BIT IS NOT added TQ THE SHIFTED EXPONENT 


03527 

R 

777777 

A 

LAW 

«1 




03530 

R 

044556 

R 

DAC 

FSTSUBf^ 




03531 

R 

203706 

R 

%FDA L.AC 

%FAC3 


/SHIFT building QUOTIENT 1 BIT LEFT 


03532 

R 

744010 

A 

RCL 





03533 

R 

043706 

R 

OAC 

%FAC3 




03534 

R 

203705 

R 

LAC 

%FAC2 


/IF negative, the largest possible 


03535 

R 

740010 

A 

RAL, 



/QUOTIENT HAS BEEN OBTAINED, 


03536 

R 

741100 

A 

SPA 





03537 

R 

603616 

R 

.JHP 

^^FDE 




03540 

R 

043705 

R 

DAC 

7.FAC2 


/SUBTRACT LOW DIVISOR FROM 


03541 

R 

2037i5 

R 

LAC 

%J3 


/LOW dividend 


03542 

R 

343712 

R 

TAD 

%HAC3 




03543 

R 

043710 

R 

DAC 

/.HACi 


/save Temporarily, , , maybe new low-’ORder 

DIVIDEND 

03544 

R 

750010 

A 

GLK 





03545 

R 

343711 

R 

TAD 

%HAC2 


/IF OVERFLOW ADO 1 TO HIGH ORDER DIVIDEND 

03546 

R 

343715 

R 

TAD 



/SUBJECT HIGHsQRDER DIVISOR 


03547 

R 

740100 

A 

SNA 





03550 

R 

603602 

R 

JMP 

%FDD 


/IP negative do not generate a quotient 

BIT 

03551 

R 

203712 

R 

LAC 

%RAC3 


/CONTINUE WITH OLD DIVIDEND INSTEAD OF 

REMAINDER 

03552 

R 

744010 

A 

%FOB RCL 



/ 


03553 

R 

043712 

R 

DAC 

%HAC3 


/ 


03554 

R 

203711 

R 

LAC 

%HAC2 


/SHIFT dividend 


03555 

R 

740010 

A 

RAL 



/ 


03556 

R 

043711 

R 

DAC 

%HAC2 


/ 


03557 

R 

144556 

R 

DHM 

FSTSUB 




03560 

R 

443714 

R 

ISH 

%J1 


/HAVE ALL BITS BEEN SHIFTED 


03561 

R 

603531 

R 

JMP 

%FDA 


/NO,,, CYCLE AGAIN 


03562 

R 

603622 

R 

JMP 

%FDF 


/ingeger jump 






/ABNORMAL DIVISION EXPECTED 



03563 

R 

200527 

R 

%roc LAC 

OPCODE 




03564 

R 

504603 

R 

AND 

(FU 




03565 

R 

544604 

R 

SAD 

(CAL) 




03566 

R 

440544 

R 

IS2 

IDVBY0 


/INTEGER DIVISION BY HERO 


03567 

R 

544603 

R 

SAD 

(FL) 




03570 

R 

440542 

R 

IS2 

DVBY00 


/FLOATING ABNORMAL DIVISION 


03571 

R 

200527 

R 

LAC 

OPCODE 




03572 

R 

504610 

R 

AND 

(DPI 




03573 

R 

544604 

R 

SAD 

(CAL) 




03574 

R 

603600 

R 

JMP 





03575 

R 

l'10iJ36 

R 

D2M 

OVRFLl 


/ABNORMAL DIVISION TAKES PRECIPENCE 


03576 

R 

140537 

R 

D2M 

UNDFLl 


/OVER DP JEA FUNCTIONS 
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03577 

R 

140541 

R 


D2M 

undfln 



03600 

R 

443231 

R 

7.FDEXIT ISZ 

%FP, 


/BUMP For exit 

03603, 

R 

623231 

R 


JMP» 



/EXIT 





/AT7.F00 THE 

DIVISOR IS less 

THAN THE DIVIDEND AND A QUOTIENT BIT 





ns 

GENERATED, THE QUOTIENT 

BIT IS PICKED UP FROM THE CALLING SEQUENCE! 





/IT 

IS THE LEAST SIGNIFICANT 

BIT and is OREO INTO THE BUILDING QUOTIENT- 





/AN 

/ 

ADJUSTMENT IS' NECESSARY 

TO 

PICK"UP THE NEW dividend (REMAINDER), 

03602 

R 

043711 

R 

/ 

%PPD 

OAC 

%HAC2 


/new«high,.qrder dividend 

03603 

R 

740400 

A 


SMI, 




03604 

R 

603610 

R 


PMP 




03605 

R 

mill 

A 


LAW 




03606 

R 

544556 

H 


SAD 

FSTSUD 



03607 

R 

103664 

H 


JMS 

INCEXP 



03610 

R 

144556 

R 


OHM 

FStsUD 



03611 

R 

223231 

R 


LAC« 

■ " %FO, 


/GET least significant BIT, OR JT 

03612 

R 

243706 

R 


XOR 

%F~AC3 


/INTP The lowbOrdeR quotient word 

03613 

R 

043706 

R 


DAC 

7oF ACS 


/SAVE new QUOTIENT 

03614 

R 

203710 

R 


LAC 

Z^HACl 


/GET LOWbORDER REMAINDER 

03615 

R 

603552 

R 


PMP 

7oFDB 


/GO BACK AND SHIFT QUOTIENT 





/AT 

%FOE THE 

largest possible: 

quotient HAS BEEN OBTAINED, THE 





/quotient Was shifted left one 

bit too many, shift it back 1 BIT 





/AND 

INCREMENT THE EXPONENT 

OF 

THE QUOTIENT 

03616 

R 

744020 

A 

%FDE 

RGR 



/highborder quotient 

03617 

R 

203706 

R 


LAC 

%FAC3 


/get LOWbORDER quotient and 

03620 

R 

740020 

A 


RAR 



/replace bit taken from it. 

03621 

R 

043706 

R 


OAC 

7»FAC3 


/MANTISSA portion COMPLETE, 

03622 

R 

200527 

R 

%fpf 

LAC 

OPCODE 



03623 

R 

504603 

H 


AND 

CFL) 



03624 

R 

544604 

R 


SAD 

(CAL) 



03625 

R 

143704 

R 


OHM 

%FAql 


/MUST EXIT with = 0 FOR I DIVISION 

03626 

R 

203/11 

R 


LAC 

%RAC2 



03627 

R 

044557 

R 


DAC 

guard 



03630 

R 

200536 

R 


LAC 

OVRFLl 



03631 

R 

741^00 

A 


SNA 




03632 

R 

603600 

R 


JMP 

%FDEXIT 



03633 

R 

20053/ 

R 


LAC 

UNPFLl 



03634 

R 

340541 

R 


tad 

undfln 



03635 

R 

741200 

A 


SNA 




03636 

R 

603600 

R 


JMP 

%FDEXIT 



03637 

R 

200527 

R 


LAC 

OPCODE 



03640 

R 

504610 

R 


AND 

(OP) 



03641 

R 

544610 

R 


SAD 

^CP) 



03642 

R 

603646 

R 


JMP 

} + 4 



03643 

R 

203704 

R 


LAC 

%FAC1 



03644 

R 

544577 

R 


SAD 

(400) 



03645 

R 

741000 

A 


SKP 




03646 

R 

140536 

R 


DHM 

OVRFLl 



03647 

R 

140537 

R 


DHM 

UNPFLl 



03650 

R 

140541 

R 


D-HM 

UNDFLN 



03651 

R 

603600 

R 


JMP 

%FDEXIT 


/EXIT ROUTINE WITHOUT NORMALIHING, 
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03652 

R 

000000 

A 

OCHECK 

0 


03653 

R 

200i?27 

R 


lAC 

OPCODE 

03654 

R 

504575 

R 


AND 

(0P6T09) 

03655 

R 

544600 

R 


SAD 

(MUU 

03656 

R 

745000 

A 


SKPICLL 

03657 

R 

544601 

R 


SAD 

( P I V ) 

03660 

R 

745000 

A 


SKP J 

CLL 

03661 

R 

544637 

R 


SAG 

(RDIV? 

03662 

R 

443652 

R 


IS2 

OCHECK 

03663 

R 

623652 

R 


UMP''» 

OCHECK 





/INCREMENT EXPONENT ROUT 

03664 

R 

003664 

R 

INGEXP 

,DSA 

t 

03665 

R 

443704 

R 


IS2 

%FAC1 

03666 

R 

740000 

A 


NOP 


03667 

R 

200527 

R 


lAC 

OPCODE 

03670 

R 

504610 

R 


AND 

(DP? 

03671 

R 

544610 

R 


SAD 

(DP) 

03672 

R 

603700 

R 


JMP 

1 * 6 

03673 

R 

203704 

R 


LAC 

%FAC1 

03674 

R 

544710 

R 


SAD 

(777400) 

03675 

R 

440536 

R 


ISZ 

OVRFLl 

03676 

R 

544577 

R 


SAP 

(400) 

03677 

R 

440536 

R 


ISZ 

OVRFLl 

03700 

R 

203704 

R 


LAC 

%FAC1 

03701 

R 

544626 

R 


SAD 

(400000) 

03702 

R 

440536 

R 


ISZ 

OVRFLl 

03703 

R 

623664 

R 


JMP« 

INCEXP 

03704 

R 

000000 

A 

%FAC1 

0 


03705 

R 

000000 

A 

%FAC2 

0 


03706 

R 

000000 

A 

%FAC3 

0 


03707 

R 

000000 

A 

7oFAC4 

0 


03710 

R 

000000 

A 

%HACi 

0 


03711, 

R 

000000 

A 

%HAC2 

0 


03712 

R 

000000 

A 

%HAC3 

0 


03713 

R 

000000 

A 

%HAC4 

0 


03714 

R 

000000 

A 

%J1 

0 


03715 

R 

000000 

A 


0 


03716 

R 

000000 

A 

%J3 

0 


03717 

R 

000000 

A 

% J4 

0 


03720 

R 

000000 

A 

%U5 

0 


03721 

R 

000000 

A 

%FSIGN- 

0 

/SIGN OF 
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/ 

/ 

/ 

iIPUND ^.NDOUB 

/DOUBLE PRECISION FLOATING POINT PACKAGE 

/ 

/ 

/ 

/ 


/ 

DLAC 

load 

/ 

DDAC 

STORE 

/ 

pfap 

ADD 

/ 

DSUB 

subtract 

/ 

DDVD 

DIVIDE 

/ 

DMPY 

hultiply 

/ 

DDVR 

REVERSE divide 

/ 

DSBR 

REVERSE subtract 


/ 

/ 

/ 

/required programs? fpqint^ general floating point arithmetic 
/ 

/ 

/ 

/OOUBte PRECISION floating point load (Dl-AC) 

/CAUUNG SEQUENCE! 

/ 






/ 

JMS 

DLAC 

/SUBR call (xct if INDIRECT). 





/ 

xct 

AODR 

/address of DOUBLE PRECISION 





/ 

/ 

next 

INSTRUCTION 

/RETURN ARO IN FLT ACC 

03722 

R 

000000 

A 

/ 

PlAC 

0 



03723 

R 

102151 

R 


JMS 


/GET address of ARGUMENT 

03724 

R 

000000 

A 

%DP| 

0 


/argument address 

03725 

R 

223724 

R 


LAC^ 

%PP1 

/FIRST WORD 

03726 

R 

043704 

R 


DAC 

/oFACl 

/exponent 

03727 

R 

443724 

R 


ISZ 

%PPl 

/point to second word 

03730 

R 

223724 

R 


LAC^ 

%PP1 


0373^, 

R 

043705 

R 


DAC 

%PAC2 


03732 

R 

443724 

R 


IS2 

%Dpl 


03733 

R 

223724 

R 


LAC^* 

%DP1 

/LOWsORDER mantissa 

03734 

R 

043706 

R 


DAC 

/»FAC3 


03735 

R 

203722 

R 

DLACI 

LAC 

DLAC 


03736 

R 

504701 

R 


AND 

(77/77 ) 


03737 

R 

544711 

R 


SAO 

(%DP9A) 


03740 

R 

603745 

R 


JMP 

DLAC2 


03741 

R 

544712 

R 


SAD 

(7pDP6A) 


03742 

R 

603745 

R 


JMP 

DLAC2 


03743 

R 

102024 

R 


JMS 

%FLOT, 


03744 

R 

623722 

R 


JHP<» 

DLAC 
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037455 

R 

200t?27 

R 

03746 

R 

504575 

R 

03747 

R 

544602 

R 

037b0 

R 

623722 

R 

03751 

R 

544637 

R 

03752 

R 

623722 

R 

03753 

R 

102024 

R 

03754 

R 

623/22 

R 


syi 

Dl,AC2 


ITLE DOUBIE 

LAC OPCODE 
AND (OP6T09) 
SAD (RSUBJ 
JMP<^ DUC 
SAD (RPIV) 
JMP« DUG' 
JMS %FLOT, 
JMPi» DLAC 
, EJECT 
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SUBTITLE POUBLE 


04000 

04001 

04002 

04003 
04 004 

04005 

04006 
0 4007 

04010 

04011 

04012 


000000 

1021t’l 

000000 

102300 

103722 

404002 

103061 

102310 

000000 

777777 

624000 


/double 

/CALLING 

/ 

/ 

/ 

/ 

/ 


precision floating store 

SEQUENCEl 


(DOACJ 


JMS ODAC /SU8R 
XCT APDR /APDR 
NEXT INSTRUCTION 


CALL^VALUE IN FLOATING ACC) 

OF arc (XCT IF INDIRECT) 

/SUBR RETURN (VALUE IN ARG AND FLOATING ACC) 


03755 


0000PJ0 

A 

QDAC 

0 



03756 

r 

102151 

R 


JMS 

%FG, 

/GET ADDRESS 

03757 

R 

000000 

A 

%DP2 

0 



03760 

R 

203704 

R 


LAC 

%FAC1 

/exponent 

03761 

R 

063757 

R 


DAC<> 

%DP2 


03762 

R 

443757 

R 


IB'i 

%DP2 


03763 

R 

203705 

R 


LAC 

”4FAC2 

/2ND WORD 

03764 

R 

06375/ 

R 


dac<» 

%PP2 


03765 

r 

443757 

R 


IS2 

%PP2 

/3H0 WORD 

03766 

R 

203706 

R 


LAC 

%FAC3 


03767 

R 

063757 

R 


DACit 

%PP2 


03770 

R 

623755 

R 


JMP* 

ODAC 






/DOUBLE 

PRECISION FLOATING POINT SUBTRACT (DSUB! 





/calling 

/ 

/ 

: SEQUENCEl 






JHS 

XCT 

DSUB 

ADOR 

/MINUEND IN FLOATING ACC 

/ADDR OF SUBTRAHEND (XCT IF INDIRECT) 

/ 





/ 

NEXT 

instructi 

ON /SUBR return (DIFFERENCE IN FLOATING 

03771 

R 

000000 

A 

DSUB 

0 



03772 

R 

102151 

R 


JMS 


/GET address of SUBTRAHEND 

03773 

R 

000000 

A 

/SDP3 

0 


/stored address of subtrahend 

03774 

R 

102142 

R 


JMS 

%FNEG, 

/NEGATE MINUEND ( SUBTRAHENQ-'M 1 NUEP ) 

03775 

R 

104055 

R 


JMS 

OFAD 

/double precision add 

03776 

R 

4037/3 

R 


%DP3+400000 

/indirect address (XCT! of ARG 

03777 

R 

623771 

R 


sJHP^ 

PSUB 

/exit 


AC) 


/ 

/double 

/calling 

/ 

/ 

/ 

/ 

/ 


PECISION floating RqINT MULTIPLY (PMPY 
SEQUENCE; 


JMS PMPY 

XCT ADPR 

NEXT INSTRUCTION 


0 

JMS 

0 

JMS 

JMS 

%DP4+4 

JMS 

JMS 


JMP<^ 

*FJECT 


/SUBR CALL (MULTIPLICAND IN FLATING ACC) 
/APDR OF MULTIPLIER (XCT IF INDIRECT) 

/SUBR RETURN (PRODUCT IN FLOATING 


/GET address of MULTIPLIER AND 

/STORE HERE 

/HOLD FLOATING ACC, 


00000 /multiplier 

%FM, /general MULTIPLY 

%f|R, /round and sign 

0 /ROUND OFF BIT 

77777/ /mask 

PMPY /EXIT 


ACC) 


%FG, 
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/ 

/double precision floating point reverse DIVIOF (OOVR) 
/calling sequence; 

/ 






/ 

JMS 

DQVR 






/ 

XCT 

AODR 






/ 

/ 

POVR 

NEXT 

instruct 

ION 

0^013 

R 

000000 

A 

0 



0A014 

R 

102151 

R 


JMS 

%PG, 


04015 

R 

000000 

A 

%DP5 

0 



04016 

R 

103755 

R 


JMS 

DDAC 


04017 

R 

003/14 

R 


,DSA 

%JX 


04020 

R 

103722 

R 


JMS 

DLAC 


04021 

R 

404015 

R 


%DP5+400000 

/D! 

04022 

R 

104025 

R 


JMS 

DDVD 


04023 

R 

003714 

R 


,DSA 

%J^, 


04024 

R 

624013 

R 


JMP« 

DDVR 



/SUBR call (DIVISOR IN FLT ACC) 

/ADDRESS OF DIVIDEND 

/return (QUOTIENT) IN FLOATING ACCUMULATOR) 


/GET ADDRESS OF DIVIDEND 
/STORE double 
/LOAD DOUBLE 


/PI VIDE 

/exit 

/ 

/ 

/double precision floating POINT DIVIDE (DOVO) 
/calling sequence? 

/ 






/ 

JMS 

DPVD 

/SUBR 

caul (DIVIDEND IN PUPATING ACC) 





/ 

XCT 

ADDR 

/XCT 

IF indirect (ADDR OF DOUBLE PRECISION 





/ 

/ 

PDVD 

NEXT I 

NSTRUCT JO 

N 

/return (QUOTIENT IN FLOATING ACC) 

04025 

R 

000000 

A 

0 




04026 

R 

102151 

R 


JMS 



/get address of argument 

04027 

R 

000000 

A 

%DP6 

0 



/ADDRESS OF DIVISOR 

04030 

R 

102300 

R 


JMS 

%FH, 


/HOLD OIVIPENU 

04031 

R 

103722 

R 


JMS 

PLAC 



04032 

R 

404027 

R 


%DP6+4 

00000 



04033 

R 

103231 

R 

%DP6A 

JMS'' 

' '%Fp, 


/GENERAL FLOATING DIVIDE 

04034 

R 

000000 

A 


CAL 



/36 BIT AUOTIENT 

04035 

R 

000001 

A 



1 


/least significant quotient bit 

04036 

R 

102310 

R 


JMS 

%FIR, 


/ROUND AND INSERT SIGN 

04037 

R 

000000 

A 



0 


/ROUND OFF BIT 

04040 

R 

777777 

A 



77111/ 


/MASK 

04041 

R 

624025 

R 


JMP<> 

.EJECT 

UDVQ 


/EXIT 
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/OPUBLE precision floating point reverse subtract (DSBR) 
/calling SEQUENCE! 

/ 

/ JHS DSBR /subtrahend IN FLOATING ACC, 

/ XCT APDR /ADDRESS OF MINUEND 

/ NEXT INSTRUCTION /DIFFERENCE IN FLOATING ACC 


/ 


0^042 

R 

000000 

A 

DSBR 

0 

04043 

R 

10211?1 

R 


JMS %F'G, 

04044 

R 

000000 

A 

%0P7 

0 

040415 

R 

10371315 

R 


JMS DDAQ 

04046 

R 

003714 

R 


,DSA %J1 

04047 

R 

103722 

R 


JMS DIAC 

040S0 

R 

404044 

R 


%DP7+400000 

040151 

R 

102142 

R 


JMS ''^oPNEG 

040152 

R 

104055 

R 


JMS UFAD 

040133 

R 

003714 

R 


%J 1 

040^4 

R 

624042 

R 


JMPtt PSBR 


/negate subtrahend 

/ADD DOUBLE 
/MINUEND^SUBTRAHEND 


I 



/double precision floating POINT ADD (DFAO) 

/CALLING SEQUENCE! 

/ 

/ JMS DFAD /AUGEND IN FLOATING ACC 

/ ,PSA ADDR*A 00000 /xcf IF INDIRECT 

/ NEXT INSTRUCTION " /SUBR RETURN (SUM IN FLOATING ACC) 

/ 


04055 

R 

000000 

A 

DpAD 

0 



04056 

R 

102151 

R 


JMS 

%FG, 

/GET address of ADOENO 

04057 

R 

000000 

A 

%DP9 

0 


/STORE ADDRESS 

04060 

R 

102300 

R 


JMS 

%FH, 

/HOLD Floating acc 

04061 

R 

103722 

R 


JMS 

olac 


04062 

R 

404057 

R 


%DP9+400000 


04063 

R 

102447 

R 

%PP9A 

JMS 


/GENERAL FLOATING ADD 

04064 

R 

000043 

A 



43 

/MAX SHIFT 

04065 

R 

102310 

R 


JMS 


/ROUND and sign 

04066 

R 

000000 

A 



0 " 

/LEAST significant BIT 

04067 

R 

777777 

A 



777777 

/mask 

04070 

R 

624055 

R 


JMP^^ 

PFAD 







, EJECT 





o 

o 
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O 

o 

O 

O 

o 

o 

o 

o 

O . 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


page: 6A SRC subtitle single 

, title subtitle single 

, I FUND %NSING 

/SINGLE precision FLOATING POINT PACKAGE 
/ 

/ 

/ single precision 

/ 


/ 


/ 

flag 

load 

/ 

FDAC 

deposit 

/ 

FAD 

ADO 

/ 

FSUB 

subtract 

/ 

FmPY 

MULTIPLY 

/ 

FDVD 

DIVIDE 

/ 

psbr 

reverse subtract 

/ 

FDVR 

REVERSE DIVIDE 


/ 

/ 

/ 


/REQUIRED PROGRAMS? FPO I NT ( GENERAL FLOATING ARITHMETIC) 
/ 

/TERMS! 1. Ar,REG P0P«15 HARDWARE ACCUMULATOR 


/ J?, FLT ACC floating ACCUMULATOR ( %P ACl f %F AC2 1 %F AC3 ) 

/ 3* held ACC held accumulator (%HAC1, %HAC2i%HAC3) 

/ 

/ ,, 

/ 


/floating point 
/calling sequence'! 






/ 

JMS 

flag 

/subr Call 





/ 

,DSA 

AOPR+A00000 /AUOR OF s.p, floating POINT 





/ 

/ 

NEXT 

INSTRUCTION 

! /subr return 

0A07X 

R 

000000 

A 

/ 

flag 

0 



04072 

R 

1021S1 

R 


UMS 

%FG, 

/GET AOORESS 

04073 

R 

000000 

A 

%SP1 

0 


/(AODRESS OF SINGLE PRECISION WORO) 

04074 

R 

224073 

R 


LAC« 

%SP1 

/HIGH^OROER WORD AND SPLIT 

04075 

R 

504630 

R 


AND 

(777000 

/GET LOW’^QROER MANTISSA 

04076 

R 

043706 

R 


OAC 

%FACS 


04077 

R 

224073 

R 


l,AC» 

/oSPl 

/SPLIT again 

04100 

R 

504655 

R 


and 

(000/77 

/GET exponent 

04101 

R 

244577 

R 


XOR 

(000400 

/EXTEND SIGN BIT TO FILL OUT EXPONENT 

04102 

R 

344710 

R 


TAD 

( 777400 

04103 

R 

043704 

R 


DAC 

%FAC1 


04104 

R 

444073 

R 


ISZ 

/oSPl 

/BUMP TO SECOND WORD 

04105 

R 

224073 

R 


LAC<> 

%SP1 


0H06 

R 

504660 

R 


AND 

(3777/7 


04107 

R 

043705 

R 


OAC 

%FAC2 


04110 

R 

224073 

R 


LAC<^ 

%spi 


04111 

R 

504626 

R 


AND 

(*400000 


04112 

R 

043717 

R 


DAC 

%J4 



NUMBER 


WORD, 
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SINGLE 


04ia,^ 

R 

203705 

R 


LAG 

%FAC2 


0413,^ 

R 

343717 

R 


TAD 



04115 

R 

043705 

R 


DAG 

%KAC2 


04116 

R 

624071 

R 

/ 

JMP» 

FUAC 

/EXIT 





/ 

/FL,OATING POINT STORE 
/CALUNG SEQUENCE! 






/ 

JMS 

FDAC 

/SUBR CALL 





/ 

XCT 

ADDR 

/ADOR+400000( IF INPIRECT) 





/ 

/ 

NEXT 

INSTHUCTION 

1 /return 

04117 

R 

000000 

A 

/ 

FDAC 

0 



04120 

R 

102151 

R 


JMS 

7oF G 1 

/get ADDRESS 

04121 

R 

000000 

A 

%SP2 

0 


/(Address of singee precision word; 

04122 

R 

203704 

R 


EAC 

XoFACl 

/(5ET EXPONENT 

04123 

R 

504655 

R 


AMD 

(000777 

/STRIP OFF EEFT HAUP 

04124 

R 

064121 

R 


DAC» 

%SP2 

/STORE EXPONENT 

04125 

R 

203706 

R 


LAC 

%FAC3 

/GET LOWbOROER MANTISSA 

04126 

R 

504630 

R 


AND 

(777000 

/STRJP OF right HAEF 

04127 

R 

364121 

R 


TAP^» 

%SP2 

/MERGE WITH EXPONENT 

04130 

R 

064121 

R 


DAC^ 

7,SP2 

/STORE COMPUETEO WORD 

04131 

R 

444121 

R 


ISZ 

XoSP2 

/POINT TO NEXT RECEIVING AREA, 

04132 

R 

203705 

R 


LAC 

%FAC2 

/HIGHbORDER MANTISSA 

04133 

R 

064121 

R 


6ac« 

7oSP2 

/STORE IT 

04134 

R 

624117 

R 


JMP® 

FDAC 

/EXIT 


/ 

/ 






/floating point ADO 
/calling SEQUENCE! 

(FAD) 





/ 

JMS FAD 

/SUBR CAUL 





/ 

XCT apdr 

/(XCT IF INDIRECT) 





/ 

/ 

next INSTRUCT! 

ON /RETURN HERE 





i 

/THIS 

subroutine DOES 

THE SETbUP work FOR SUBROUTINE %PA, 





/THE 

AUGEND IS STORED 

IN the heed accumulator and 





/the 

ADDEND IS loaded 

INTO the floating accumulator. 





/ROUNDED AND THE SJGN 

/ 

IS inserted, 

04135 

R 

000000 

A 

/ 

FAD 

0 


04136 

R 

102151 

R 


JMS %FG, 

0 

/get address 

04137 

R 

000000 

A 

%SP3 

/(Address of single precision addend) 

04140 

R 

102300 

R 


JMS 

/MOVE floating ACC TO HELD ACC, 

04141 

R 

104071 

R 


JMS FLAG 

/LOAD FLOATING AC 

04142 

R 

404137 

R 


%SP3+400000 


04143 

R 

102447 

R 


JMS '■'■%FA, 

/general FLOATING ADD 

04144 

R 

000043 

A 


43 


04145 

R 

102310 

R 


JMS %nR| 

/FLOATING INSERT AND ROUNT 

04146 

R 

000400 

A 


400 

/ROUND 



o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 
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I TIE SING 


0A1A7 R 777000 A 
04150 R 624165 R 


04160 

04161 

04162 

04163 

04164 

04165 

04166 

04167 

04170 

04171 

04172 


R 000000 A 
R 102151 R 
R 000000 A 
R 102300 R 
R 1040n R 
R 404162 R 
R 103061 R 
R 102310 R 
R 000400 A 
R 777000 A 
R 624160 R 


777000 /HASK 
JMP« FAD ' /RETURN 
/FUOATING POINT SUBTRACT 
/CALUNG SEOUENCE! 

/ JHS FSUB /SUBR CAUL 

/ XCT AUOR /XCT IF INDIRECT 

/ NEXT INSTRUCTION /SUBR RETURN 

/ 

/floating point subtract does the SETUP WORK REQUIRED TO 
/PERFORM THE FLOAtiNG POINT ADD INSTRUCTION, THE MINUEND 
/IS NEGATED AND UPON RETURNING FROM XFA, THE SUM IS 
/NEGATED, THIS IS DONE TO TaKE FULL ADVANTAGE OF %FA, AND 
/TO MINIMIZE CORE, 

/ 


0415?!, 

R 

000000 

A 

FSUB 

0 



04XS2 

R 

102151 

R 


JMS 

7.FG, 

/get ADDRESS OF SUBTRAHEND 


R 

000000 

A 

XSP4 

0 

/STORE ADDRESS 

04154 

R 

102142 

R 


JMS 

XFNEG, 

/NEGATE FLOATING ACC 

04155 

R 

104135 

R 


JMS 

fad 


04156 

R 

40415;5 

R 


7oSP4 + 400000 

/,0SA % SP4+4000B0 (INDIRECT) 

04157 

R 

624151 

R 


viMP*^ 

F§UB 

/exit 


/ 


(FmPY) 


FMPY /ENTRY-EXIT 

ADDR /ADDRESS OF MULT IPLI ER ( XCT IF INDIRECT) 

INSTRUCTION /RETURN HERE 


/floating point MULTIPLY 
/ckuiNC SEQUENCE! 
f JMS 

/ XCT 

/ next 

/ 

/FMPY DOES THE SETUP WORK NECESSARY TO EXECUTE THE GENERAL 
/FLOATING POINT MULTIPLY INSTRUCTION! NAMELY , STOR I NC 

/multiplicand In the held accumulator and 

/LOADING THE FLOAfiNG POINT ACCUMULATOR WITH 

/multiplier 
/ 

FMPY 


%SP5 


0 

JMS 

0 

JMS 


%FG 


L ^ S 


7.FH, 
FUAC 
%SP5+400000 


JMS 

JMS 


JMP» 

, EJECT 


%FH, 

'iF I R 1 
400 

lyywa 

FMPY 


ADDRESS 

/ADDRESS OF single PRECISION MULTIPLICAND, 
/STORE IN HELD ACC, 

/LOAD multiplier 

/indirect ADDRESS 

/general floating POINT MULTIPLY 

/ROUND AND INSERT SIGN OF PRODUCT 


/MASK 

/EXIT 


FOR ROUND OFF 


O 

O 

O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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subtitle single 


/ 

/floating point divide (FDVD) 

/calling sequence? 

/ JMS FPVD /SUBR CALL 

/ xct appr vapor, of divisor 

/ next instruction /SUBR return 

/ 

/FDVP POES THE SET UP FOR %FD, THE GENERAL PURPOSE FLOATING 
/POINT INSTRUCTION, IT DOES THIS BY 
/STORING THE PIVIDENP IN THE HELP ACC AND BY STORING 
/DIVISOR IN THE FLOATING ACC, 

/ 

/ 


04173 

R 

000000 

A 

FDVD 

0 



04174 

R 

102151 

R 


J.MS 

%FG| 

/GET ADDRESS OR DIVISOR 

04175 

R 

000000 

A 

%SP6 

0 


/address of divisor 

04176 

R 

102300 

R 


JMS 

%FH, 

/HOLD IT 

04177 

R 

104071 

R 


JMS 

FLAG 


04200 

R 

404175 

R 


%SP6+400000 

/t,QAD DIVISOR 

04201 

R 

103231 

R 


JMS 


/general, floating DIVIO 

04202 

R 

000000 

A 


GAL 


04203 

R 

000001 

A 



1 

/quotient bit 

04204 

R 

102310 

R 


JMS 


/INSERT SIGN, roundoff 

04205 

R 

000400 

A 



400 


04206 

R 

777000 

A 





04207 

R 

624173 

R 


JMP^» 

FDVD 




PAGE 
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subtiti^e single 


04210 

042U 

04212 

04213 

04214 

04215 

04216 

04217 

04220 

04221 

04222 


R 000000 A 
R 102151 R 
R 000000 A 
R 104117 R 
R 003714 R 
R 104071 R 
R 404212 R 
R 102142 R 
R 1041315 R 
R 003714 R 
R 624210 R 


/ 

7REVER5E subtract 
/CAUl,ING SEQUENCE! 

/ UMS FB8R 

/ XCT AUDR 

/ NEXT INSTRUCT 

/ 

/ 

FSBR 0 


(FSBR) 

/SUBR CAU. 

/APDR OF MINUENDCXCT IF INDIRECT) 

ION /SUBR RETURN DIFFERENCE IN FLOATING ACC 


FSBR 0 

UMS %FG, 

79SF7 0 

JMS FOAC 
,DSA 

UMS fCac 

%SP7*400000 
JMS' ""'/iFNEG 
JMS FAD 

,DSA %JX 

JMP^^ FSBR 


/GET ADDRESS OF MINUEND 


/negate subtrahend 


/minuenp^subtrahend 


/ 

/reverse 

/calling 


DIVIDE (FDVR) 
SEQUENCE? 







/ 

JMS 

FDVR 

/CAUliDlVISOR IN FLOATING ACC, 


o 





/ 

XCT 

APPR 

/AODR OF DIVIDFNDIACT IF INDIRECT) 

o 






/ 

NEXT 

INSTRUCTION 

1 /SUBR RETURNIQUOTIBNT in floating ACC,) 


o 





/ 

/ 




o 


04223 

R 

000000 

A 

FDVR 

0 





04224 

R 

102151 

R 


JMS 

%FG, 

/GET ADDRESS OF DIVIDEND 


o 

04225 

R 

000000 

A 

%SP8 

0 



o 


04226 

R 

104117 

R 


JMS 

FPAC 

/SAVE DIVISOR 



04227 

R 

003714 

R 


lOSA 

%J1 

/USE HELD ACCUMULATOR TEMPORARILY 


o 

04230 

R 

104071 

R 


JMS 

PPAC 


o 


04231 

R 

404225 

R 


%SP8+400000 

/(DIVIDEND) 



04232 

R 

104173 

R 


JMS 

FDVD 



o 

04233 

R 

003714 

R 


,0SA 

%J1 

/(ADDR OF DIVISOR) 

o 


04234 

R 

624223 

R 


J M P 

FDVR 




eject 


O 
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SUBTITLE SINGLE 






/test for oata 

t 

»SW10» WHICH 

INHIBITS the 'PPP3.5' test, 


R 

000000 

A 

HOLDSW 

/ 

0 



04236 

R 

750004 

A 


EAS 



04237 

R 

500010 

R 


AND 

USERSW+10 

/DATA 'SW10t 

04240 

R 

741200 

A 


SNA 


/IS SWITCH SET? 

04243, 

R 

624235 

R 


JMPi* 

HOEDSW 

/NPi EXIT 

04242 

R 

200073 

R 


EAC 

PSTSW0 


04243 

R 

044546 

R 


DAC 

SAVOSf 


04244 

R 

204713 

R 


EAC 

(HOEDfl 

/yes, halt prograh 

04245 

R 

040073 

R 


DAC 

DSTSW0 


04246 

R 

604256 

R 


JMP 

EXITM3 

/EXIT 

04247 

R 

204546 

R 

HOLD,! 

EAC 

SAVPSf 


04250 

R 

040073 

R 


DAC 

DSTSW0 

/RESTORE RETURN ADDRESS 

04251 

R 

604236 

R 


JHP 

holdsw*! 

/RETEST SWITCH 





/subroutine to 
/ 

UPDATE "DSTSW0" ON EXITING 

04252 

R 

000000 

A 

pcnext 

0 



04253 

R 

204252 

R 


LAC 

PCNEXT 


04254 

R 

040073 

R 


DAC 

OSTSW0 


04255 

R 

604256 

R 


JMP 

EXITM5 






/SUBROUTINE TO 
/ 

EXIT 's5!, 


04256 

R 

777773 

A 

EXITM5 

LAW 

■r?5 


04257 

R 

040020 

R 


DAC 

SYSERR 


04260 

R 

620062 

R 


JHP<» 

SERVICE 






/SETUP 

TO TYPE 

^PPNE’i 


04261 

R 

7777/4 

A 

EXJTM4 

LAW 

irj ^ 


04262 

R 

040020 

R 


DAC 

SYSERR 


04263 

R 

140021 

R 


P2M 

SYSERR*! 


04264 

R 

140022 

R 


OHM 

Ircope 


04265 

R 

620062 

R 


JMP<^ 

service 






/ERROR 

li FP15 

CONFIGORATION 

NOT present 

04266 

R 

777777 

A 

ERROR! 

LAW 

«1 


04267 

R 

040020 

R 


OAC 

SYSERR 


04270 

R 

204643 

R 


EAC 

U 

/ERROR CODE 

04271 

R 

040022 

R 


DAC 

ERCODE 


04272 

R 

777777 

A 


LAW 

ol 


04273 

R 

040021 

R 


DAC 

ERCOOEnl 


042/4 

R 

620062 

R 


JMP^i 

SERVICE 






/RE^SET 

'DSTSWUi TO CONTINUE 

after typing error, 

04275 

R 

000000 

A 

EXTERR 

0 



04276 

R 

200073 

R 


EAC 

DSTSW0 


04277 

R 

044562 

R 


DAC 

savapr# 


04300 

R 

204714 

R 


EAC 

( ,*3 


04301 

R 

040073 

R 


DAC 

OSTSW0 


04302 

R 

620062 

R 


JMP<* 

service 


04303 

R 

204562 

R 


EAC 

savapr 


04304 

R 

040073 

R 


DAC 

DSTSW0 


04305 

R 

624275 

R 


JMP* 

EXTERR 







.EJECT 





o 


o 


o 
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o 

04306 

R 

000000 

A 

SFTDMR 0 



04307 

R 

144544 

R 

t)HM 

APION 

o 

04310 

R 

7055X2 

A 

RPl 


04311 

R 

044544 

R 

DAC 

API ON 


04312 

R 

705514 

A 

ISA+10 


o 

04313 

R 

700002 

A 

I OF 


04314 

R 

717300 

A 

DMN 



04315 

R 

000000 

A 

0 


o 

04316 


710314 

A 

FPT 


04317 

R 

000000 

A 

0 



04320 

R 

710177 

A 

DSR*77 


o 

04321 

R 

000547 

R 

regadr 


04322 

R 

710100 

A 

DSR 



04323 

R 

00054/ 

R 

REGADR 


o 

04324 

R 

703304 

A 

DBK 


04325 

R 

700042 

A 

ION 



04326 

R 

204^344 

R 

LAC 

APION 

o 

04327 

R 

504626 

R 

AND 

(400000 

04330 

R 

705504 

A 

ISA 



04331 

R 

624306 

R 

JMP4 

setdmp 

o 

04332 

R 

000000 

A 

/ERROR 2 

/data error 
/ 

ERR0R2 0 


o 

04333 

R 

777776 

A 

LAW 

rag 


04334 

R 

040020 

R 

DAC 

SYSERR 

o 

04335 

R 

777777 

A 

EAW 

ral 

04336 

R 

040021 

R 

DAC 

SYSERR+1 


04337 

R 

204644 

R 

LAG 

(2 


04340 

R 

040022 

R 

DAC 

ERCOPE 

o 

04341 

R 

104275 

R 

JMS 

extern 


04342 

R 

104427 

R 

JMS 

error 


04343 

R 

624332 

R 

0 M P 

ERR0R2 

o 





/ 







/error 3 







/UNEXPECTED iJEAt BREAK 

o 





/ 



04344 

R 

040023 

R 

ERRQR3 DAC 

ERCODE^I 


04345 

R 

777776 

A 

LAW 

rag 

o 

04 346 

R 

040020 

R 

DAC 

SYSERR 

04347 

R 

777776 

A 

LAW 

»2 


04350 

R 

040021 

R 

DAC 

sfSERHtl 

o 

04351 

R 

204645 

R 

LAC 

(3 

04352 

R 

040022 

R 

DAC 

ENCODE 


04353 

R 

104275 

R 

CMS 

EXTERN 

o 

04354 

R 

104427 

R 

JMS 

ERROR 

04355 

R 

600444 

R 

JMP 

FPABORT 






, EJECT 


o 








/IS lAPp ON? 

/SET lAPH SWITCH 
/TURN 'APP OFF 
/TURN INTERRUPT OFF, 
/TURN ON FPP OIAG, MODE 

/DUMMY INSTRUCTION 

/READ REGISTERS, 

/store data in TABUE 


/TURN DIAG MODE OFF, 
/ENABUE 'PP 


/ENABUE 'APP IF IT WAS ON, 


/TYPE error 2 HEADER 
/DUMP DATA registers 


/SAVE NUMBER OF ERROR 


o 

o 

o 

o 

o 


o 


o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 
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subtitle sing 


/ERROR 4 
/EXPECTED 
/ 


’JEAf BRCAK BUT NONE OCCURRED 


04356 

R 

040023 

R 

ERR0R4 DAC 

ERCODE*! 

04357 

R 

777776 

A 

LAW 


04360 

R 

040020 

R 

PAC 

syserr 

04361 

R 

777776 

A 

LAW 

:?2 

04362 

R 

040021 

R 

DAC 

SYSERR+1 

04363 

R 

204646 

R 

LAC 

(4 

04364 

R 

040022 

R 

OAC 

ERCQDE 

04365 

R 

104275 

R 

JMS 

EXTERN 

04366 

R 

104427 

R 

JMS 

ERROR' 

04367 

R 

600444 

R 

JMP 

/ 

/ERROR 5 

FPABORT 





/LOAD AND STORE 
/ 

ERRORS law 

failure 

04370 

R 

777776 

A 

«2 

04371 

R 

040020 

R 

PAC 

SYSERR 

04372 

R 

777777 

A 

LAW 

^ 1 

04373 

R 

040021 

R 

OAC 

SYSERR-^l 

04374 

R 

204647 

R 

LAC 

(5 

04375 

R 

040022 

R 

DAC 

ERCODE 

04376 

R 

104275 

R 

JMS 

EXTERN 

04377 

R 

104427 

R 

JMS 

ERROR' 

04400 

R 

600444 

R 

JMP 

/ 

/error 6 

FPABPHT 





/AN unexpected 
/ 

ERR0R6 law 

fBRANCHf 

04401 

R 

777776 

A 

»2 

04402 

R 

040020 

R 

DAC 

syserr 

04403 

R 

777776 

A 

LAW 


04404 

R 

040021 

R 

DAC 

SYSERR+1 

04405 

R 

204650 

R 

LAC 

(6 

04406 

R 

040022 

R 

DAC 

ENCODE 

04407 

R 

201764 

R 

LAC 

nbranch 

04410 

R 

040023 

R 

DAC 

ERCOPE+1 

04411 

R 

104275 

R 

JMS 

EXTERN 

04412 

R 

104427 

R 

JMS 

ERROR' 

04413 

R 

60044 4 

R 

JMP 

FPABORT 


/SAVE NUMBER OF ERROR 


/#!# ERROR COPE 6 

/nt FAILING tBRANCH’ lOT 


lEUECT 
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Fpl!?T? 

: SRC 

subtitle 

S I N 0 L L 






/ERROR 7 







/NO ’BRANCH’ 

OCCURRED WHEN 

EXPECTED, 

04414 

R 

7777/6 

A 

ERROR? UAW 

«2 


04415 

R 

040020 

R 

DAC 

SySERR 


04416 

R 

777776 

A 

LAW 

«2 


04417 

R 

040021 

R 

DAC 

SYSERR*! 


04420 

R 

2046S1 

R 

LAC 

(7 


04421 

R 

040022 

R 

DAC 

ERCOPE 

7#!, error COQE 7 

04422 

R 

201772 

R 

LAC 

ybranch 


04423 

R 

040023 

R 

DAC 

ERCOPE*! 

FAILING 'BRANCH' lOT 

04424 

R 

104275 

R 

JMS 

exterr 


04425 

R 

604427 

R 

JHP 

ERROR 


04426 

R 

600444 

R 

JMP 

FPABQRT 






/ <}• » ^ «^ « if tt {J- «■ iJ- tt {HHi ft 

y 





i 

/ERROR FORMAT 

FOR all data 

ERRORS 





y 

/FP1St2=RATI0 

^PUNCTIONhFMB 

H'^LOW'^EP A-^FM A HwLDWwEPA 





7FMA FMA L 

/ 

« EPAn (5T0REP 

DATA!" (CLACULATED DATA) 





r 

/ ft {>>> i} ■{»«’ «■ « ft W ■{HH}' iUl- i?- * -M- tt ■»<} tt il- 

y 

04427 

R 

000000 

A 

t 

ERROR 0 



04430 

R 

104306 

R 

JMS 

SETPMP 

/DUMP DIAG registers 

04431 

R 

777776 

A 

LAW 

»2 


04432 

R 

040020 

R 

DAC 

SYSERR 


04433 

R 

777770 

A 

LAW 

«10 


04434 

R 

040021 

R 

DAC 

SYSERR+l 

/PRINT 10 DATA WORDS 

04435 

R 

204561 

R 

LAC 

RATIO 


04436 

R 

344715 

R 

TAD 

(401 


04437 

R 

040022 

R 

DAC 

ERCODE 

/#lj RATIO 

04440 

R 

200527 

R 

LAC 

OPCODE 


04441 

R 

040023 

R 

DAC 

ERCOPE^l 

m, FUNCTION 

04442 

R 

200^?X7 

R 

LAC 

%XHAC2 


04443 

R 

040024 

R 

DAC 

ERCOPE+2 

/#3, FMB"H ibefore 

04444 

R 

200520 

R 

LAC 

%XHAC3 


04445 

R 

040025 

R 

DAC 

ERCODE+3 

/#?» FMB"L (BEFORE 

04446 

R 

200516 

R 

LAC 

?4XHACi 


04447 

R 

040026 

R 

DAC 

ERC0PE’’'4 

/#6i EPA (BEFORE 


tE^tCT 
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FP15T2 

: SRC 

subtitle single 


0^450 

R 

2005:>14 

R 

LAC 

%XFAC2 


04451 

R 

040027 

R 

DAC 

ERCODE+5 

/#6,FMA*H (BEFORE 

04452 

R 

200515 

R 

LAC 

7oXFAC3 


04453 

R 

040030 

R 

DAC 

ERCOOE+6 

/#7. FMa«L (BEFORE 

04454 

R 

200513 

R 

LAC 

%XFACi 


04455 

R 

04003;i 

R 

DAC 

ERCODE+7 

/#8i EPA (BEFORE 

04456 

R 

104275 

R 

JMS 

EXTERR 

/DUMP DATA 

04457 

R 

777776 

A 

LAW 

■’*2 


04460 

R 

040020 

R 

DAC 

SYSERR 


04461 

R 

7777/2 

A 

LAW 

w 6 


04462 

R 

040021 

R 

DAC 

SYSERR+1 


04463 

R 

200553 

R 

LAC 

REGAPR+4 


04464 

R 

040022 

R 

DAC 

ERCOPE 

/Hi FMa H ((PRR) 

04465 

R 

200554 

R 

LAC 

REGADR-^5 


04466 

R 

040023 

R 

DAC 

ercode^i 

/#2# FMa L |(PRR) 

04467 

R 

200552 

R 

LAC 

REGADR*3 


044/0 

R 

040024 

R 

DAC 

ERCODE+2 

/#3, EPA ((DRR) 

04471 

R 

200532 

R 

LAC 

%ANSR2 


04472 

R 

040025 

R 

DAC 

ERCOPE?^3 

/#A| FMa H (STORED 

04473 

R 

200533 

R 

LAC 

%ansr3 


04474 

R 

040026 

R 

DAC 

ERCODE+4 

/#5| FMA L (STORED 

04475 

R 

200531 

R 

LAC 

%ansri 


04476 

R 

040027 

R 

DAC 

ERCODE+5 

/#6, fPa jSTORED 

04477 

R 

104275 

R 

JMS 

EXTERR 

/DUMP PaTAi 

04500 

R 

777776 

A 

LAW 

”2 


04501 

R 

040020 

R 

DAC 

SYSERR 


04502 

R 

777775 

A 

LAW 

«3 


04503 

R 

040021 

R 

DAC 

SYSERR+1 


04504 

R 

203705 

R 

LAC 

%FAC2 


04505 

R 

040022 

R 

DAC 

ERCODE 

/n, FMa H (CALCULATED 

04506 

R 

203706 

R 

LAC 

%FAC3 


04507 

R 

040023 

R 

DAC 

ERCODE+1 

/#K, FMa L (CALCULATED 

04510 

R 

203704 

R 

LAC 

%FAC1 


04511 

R 

040024 

R 

DAC 

ERCODE+2 

/#3, EPa (CALCULATED 

04512 

R 

104275 

R 

JMS 

EXTERN 


04513 

R 

104235 

R 

JMS 

HOLOSW 

/CHECK FOR THE HOLD SW 

04514 

R 

624427 

R 

JMP« 

.EJECT 

ERROR 
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0451B 

R 

000000 

A 

04516 

R 

340000 

A 

04517 

R 

344540 

R 

04520 

R 

34454i 

R 

04521 

R 

344542 

R 

04522 

R 

044540 

R 

04523 

R 

750010 

A 

04524 

R 

343711 

R 

04525 

R 

344540 

R 

04526 

R 

344541 

R 

04527 

R 

344642 

R 

04530 

R 

044541 

R 

04531 

R 

750010 

A 

04532 

R 

343712 

R 

04533 

R 

344540 

R 

04534 

R 

344541 

R 

04535 

R 

344542 

R 

04536 

R 

044542 

R 

04537 

R 

624515 

R 

04540 

R 

721320 

A 

04541 

R 

627745 

A 

04542 

R 

013212 

A 

04543 

R 

000000 

A 

04544 

R 

000000 

A 

04545 

R 

000000 

A 

04546 

R 

000000 

A 

04547 

R 

000000 

A 

04550 

R 

000000 

A 

04551 

R 

000000 

A 


subtitle: single 

/RANDOM number GENERATOR 
/ 

RANGEn 0 

TAD 0 
TAD RANA 
TAP RANB 
TAD RANG 
DAC RANA 
GLK 

tad %hac;^ 

TAD RANA 
tad RANB 
TAD RANG 
DAC RANB 
GLK 

TAD %HAC3 
TAP RANA 
TAD RANB 
tad RANG 
DAC RANG 
UMP^ RANGEN 
/ 

RANA 723,320 
RANB 62774P 
RANG 01323,2 
PGMLOP 0 
APION 0 
PASCNT 0 
SAVDST 0 
AUTORG 0 
TEMPI 0 
TEMP2 0 

,EUECT 



o 


o 


o 

o 
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04572 

R 

FP15T2 

000000 

000074 

1 ( 

A 

R 

3RC 


04573 

R 

720000 

A 


o 

04574 

R 

001432 

R 


04575 

R 

007400 

A 



04576 

R 

006000 

A 


c 

04577 

R 

000400 

A 



04600 

R 

001400 

A 


o 

04601 

R 

002000 

A 


04602 

R 

001000 

A 



04603 

R 

000040 

A 


o 

04604 

R 

000000 

A 


04605 

R 

000531 

R 



04606 

R 

000513 

R 


0 

04607 

R 

000516 

R 


04610 

R 

000100 

A 

’U 


04611 

R 

000532 

R 


O' 

04612 

R 

000514 

R 

04613 

R 

000517 

R 



04614 

R 

000533 

R 


o 

04615 

R 

000515 

R 


04616 

R 

000520 

R 



04617 

R 

770367 

A 


o 

04620 

R 

000010 

A 


04621 

R 

003000 

A 


04622 

R 

770177 

A 


o 

04623 

R 

003600 

A 


04624 

R 

777747 

A 



04625 

R 

000030 

A 

o 

04626 

R 

400000 

A 


04627 

R 

000140 

A 



04630 

R 

777000 

A 


o 

04631 

R 

777777 

A 


04632 

R 

001032 

R 


04633 

R 

000747 

R 


o 

04634 

R 

037777 

A 


04635 

R 

777032 

R 



04636 

R 

777115 

R 


o 

04637 

R 

002400 

A 


04640 

R 

000037 

A 



04641 

R 

000027 

A 


o 

04642 

R 

001777 

A 


04643 

R 

000001 

A 



04644 

R 

000002 

A 


0 

04645 

R 

000003 

A 

""I 

04646 

R 

000004 

A 



04647 

R 

000005 

A 


o 

04650 

R 

000006 

A 


04651 

R 

000007 

A 



04652 

R 

000011 

A 


04653 

R 

000012 

A 


0 

04654 

R 

000013 

A 



04655 

R 

000777 

A 



o 


subtitle: sjngi,e 
lENP 


O 


O 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



o 


o 
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o 04656 R 000060 A O 

04657 R 000020 A 
04660 R Zllin A 

O 04661 R 200000 A O 

04662 R 000025 A 
0'4663 R 000014 A % 

O 04664 R 000015 A O 

04665 R 000035 A 

04666 R 777767 A 

O 04667 R 000170 A ttt O 

04670 R 000050 A 

04671 R 716601 A 

O 04672 R 716602 A O 

04673 R 716603 A 

04674 R 716604 A 

o 04675 R 716606 A #L O 

04676 R 716610 A 

04677 R 716620 A % 

o 04700 R 000662 R 4^ O 

04701 R 077777 A 

04702 R iiiyn A 

o 04703 R 000377 A O 

04704 R 000043 A 

04705 R 002650 R 

o 04706 R 300000 A O 

04707 R 100000 A 
04710 R A »i, 

o 04711 R 004063 R O 

04712 R 004033 R 

04713 R 004247 R 

O 04714 R 004303 O 

04715 R 000401 A 
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n 1 

"P15T2 SRC 

SUBTI 

TIE 

SINGl^E 






o 

ACIUOC 

00521 

R 

AC2i,0C 

00522 

R 

AC3L0C 

00523 

R 

APP 

006000 

A 


ADDIS 

300000 

A 

AORESS 

04552 

R 

AOSJGN 

03042 

R 

aeorcd 

01032 

R 

o 

AOPCDB 

00747 

R 

APION 

04544 

R 

AIJTORG 

04547 

R 

AXKX 

000062 

A 

BAG 

716620 

A 

BLE 

716603 

A 

bma 

716602 

A 

BNA 

716610 

A 


BPA 

716604 

A 

BR 

006400 

A 

BRAN 

01771 

R 

BRANCH 

04553 

R 

o 

8RU 

716606 

A 

BiiA 

n66n 

A 

CAC0 

02377 

R 

CAC0EX 

02412 

R 

CFPU 

00247 

R 

CFPUST 

00270 

R 

OQMPUD 

04554 

R 

CTEST0 

00304 

R 


CTESTl 

00330 

R 

CTEST2 

00340 

R 

CTEST3 

00334 

R 

DDAC 

03755 

R 

o 

ODVD 

04025 

R 

OUVR 

0A013 

R 

DFAO 

04055 

R 

DIV 

002000 

A 

01 vsw 

00524 

R 

DUG 

03722 

R 

DLACl 

03735 

R 

□ LAC2 

03745 

R 


DMP 

717200 

A 

PHN 

717300 

A 

PMPY 

0400^3 

R 

DOFEX 

01226 

R 

o 

DOIEX 

01125 

R 

DP 

000100 

A 

DPFLAD 

01071 

R 

DPFUDV 

01077 

R 

DPFUEX 

01214 

R 

ppfeme 

01075 

R 

DPFIRD 

01103 

R 

DPFURS 

01101 

R 


OPFUSB 

01073 

R 

DPFRES 

01573 

R 

OPJEX 

01121 

R 

DFIEXl 

01157 

R 

o 

DPIEX2 

01200 

R 

DPIRES 

01625 

R 

DRR 

710000 

A 

DSBR 

04042 

R 

DSR 

710100 

A 

pstsw 0 

00073 

R 

DSUB 

03771 

R 

OV 

712000 

A 


DVBY0 

01465 

R 

OVBY00 

00542 

R 

EJNTll 

01540 

R 

EINT12 

01542 

R 

o 

EINT13 

01545 

R 

EINT14 

01550 

R 

EINT15 

01552 

R 

EINT30 

01544 

R 

EINT3t? 

01554 

R 

EOPCDB 

00745 

R 

ERCODE 

00022 

R 

ERROR 

04427 

R 


ERROR! 

04266 

R 

ERR0R2 

04332 

R 

ERR0R3 

04344 

R 

ERR0R4 

04356 

R 

o 

ERRORS 

04370 

R 

ERRDR6 

04401 

R 

ERRQR7 

04414 

R 

ESGLOG 

00511 

R 

EX|TM4 

04261 

R 

exjtms 

04256 

R 

EXPEPC 

00512 

R 

EXTERR 

04275 

R 


FACEOC 

00510 

R 

FAD 

04135 

R 

FPAC 

04117 

R 

FDVD 

04173 

R 

o 

FDVR 

04223 

R 

FEXIT 

00505 

R 


04555 

R 

Ft, 

000040 

A 

FLAC 

04071 

R 

FMPY 

04160 

R 

PNH 

713250 

A 

FNXSA 

01351 

R 


FPABOR 

00444 

R 

FPACTV 

00526 

R 

FPAUEO 

00441 

R 

fpamsr 

00352 

R 

o 

FPERRO 

00436 

R 

FPEXER 

00074 

R 

fpfma 

00226 

R 

FPFMB 

00350 

R 

FPi^OOP 

00205 

R 

FPPAOD 

01033 

R 

FPPDIV 

01052 

R 

FPPHUL 

01045 

R 


FPPRDV 

01064 

R 

FPPRSB 

01057 

R 

Fppsub 

01040 

R 

FPRAN 

00656 

R 

o 

FPT 

710314 

A 

FPU1,D 

00224 

R 

FPUST 

00351 

R 

FPUXAl 

00127 

R 

FPUXA2 

00142 

R 

FPUXA3 

00163 

R 

FPUX2A 

00155 

R 

FSBR 

04210 

R 


FSTBUB 

04556 

R 

PSUB 

04151 

R 

eocgco 

03054 

R 

GQTOGO 

03035 

R 

o 

GUARD 

04557 

R 

HOl,DSW 

04235 

R 

HOEUil 

04247 

R 

IDEXIT 

03445 

R 

lOIFR 

03454 

R 

lOIVID 

03405 

R 

IDVBY0 

00544 

R 

IPVC 

03455 

R 


IDVC3 

03476 

R 

I0VC4 

03512 

R 

J0V2 

03440 

R 

IFREST 

01556 

R 

o 

IM 

000200 

A 

INCEXP 

03664 

R 

INIT 

00032 

R 

initap 

01776 

R 

JEADRS 

04560 

R 

KT2000 

00546 

R 

K'1000 

00545 

R 

1,0 

003000 

A 


EOE 

715400 

A 

EOOPl 

00465 

R 

MUi 

001400 

A 

NBRaNC 

01764 

R 


NEXHEH 

01476 

R 

NOBRAN 

01762 

R 

OCHECK 

03652 

R 

OPCDBF 

00662 

R 

o 

OPCODE 

00527 

R 

0P6T09 

007400 

A 

PVFEO 

01442 

R 

ovrfir 

00540 

R 


OVRFEX 

00543 

R 

OVRFLl 

00536 

R 

PASCNT 

04545 

R 

pcnext 

04^52 
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